X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fcl.el;h=e2ec4c55372b6bf5309194703d21ff39d951ba43;hb=762383636a99307282c2d93d26c35c046ec24da1;hp=db01cd27543009653f5f673a01ec3e4cf2853e50;hpb=e31bfd1501359ce20fe1caf6b913a019318ec83c;p=chise%2Fxemacs-chise.git

diff --git a/lisp/cl.el b/lisp/cl.el
index db01cd2..e2ec4c5 100644
--- a/lisp/cl.el
+++ b/lisp/cl.el
@@ -750,6 +750,8 @@ FUNC is not added if it already appears on the list stored in HOOK."
 (defun cl-hack-byte-compiler ()
   (if (and (not cl-hacked-flag) (fboundp 'byte-compile-file-form))
       (progn
+	(when (not (fboundp 'cl-compile-time-init))
+	  (load "cl-macs" nil t))
 	(cl-compile-time-init)   ; in cl-macs.el
 	(setq cl-hacked-flag t))))