From 55932a65ed719d4277e0e781ca5e323b189d7f63 Mon Sep 17 00:00:00 2001 From: Po Lu Date: Tue, 29 Mar 2022 13:58:40 +0800 Subject: [PATCH] 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. --- lisp/emacs-lisp/oclosure.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/emacs-lisp/oclosure.el b/lisp/emacs-lisp/oclosure.el index 3d17c6c668c..0c504e5d821 100644 --- a/lisp/emacs-lisp/oclosure.el +++ b/lisp/emacs-lisp/oclosure.el @@ -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)))) -- 2.39.2