Mercurial > hg > xemacs-beta

comparison lisp/cl.el @ 410:de805c49cfc1 r21-2-35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-35
author cvs
date Mon, 13 Aug 2007 11:19:21 +0200
parents 2f8bb876ab1d
children 697ef44129c6
comparison
equal deleted inserted replaced
409:301b9ebbdf3b 410:de805c49cfc1
748 748
749 (defvar cl-hacked-flag nil) 749 (defvar cl-hacked-flag nil)
750 (defun cl-hack-byte-compiler () 750 (defun cl-hack-byte-compiler ()
751 (if (and (not cl-hacked-flag) (fboundp 'byte-compile-file-form)) 751 (if (and (not cl-hacked-flag) (fboundp 'byte-compile-file-form))
752 (progn 752 (progn
753 (when (not (fboundp 'cl-compile-time-init))
754 (load "cl-macs" nil t))
753 (cl-compile-time-init) ; in cl-macs.el 755 (cl-compile-time-init) ; in cl-macs.el
754 (setq cl-hacked-flag t)))) 756 (setq cl-hacked-flag t))))
755 757
756 ;;; Try it now in case the compiler has already been loaded. 758 ;;; Try it now in case the compiler has already been loaded.
757 (cl-hack-byte-compiler) 759 (cl-hack-byte-compiler)