Temporarily fix the oclosure bootstrap

* lisp/emacs-lisp/oclosure.el (oclosure-define): Load oclosure
from source if `oclosure--define' is not defined during byte
compilation.
This commit is contained in:
Po Lu 2022-03-29 13:58:40 +08:00
parent d96db7b2e8
commit 55932a65ed

View file

@ -248,6 +248,8 @@ list of slot properties. The currently known properties are the following:
,(when options (macroexp-warn-and-return name
(format "Ignored options: %S" options)
nil))
(eval-when-compile (unless (fboundp 'oclosure--define)
(load "oclosure.el")))
(eval-and-compile
(oclosure--define ',name ,docstring ',parent-names ',slots
,@(when predicate `(:predicate ',predicate))))