Simply require 'cl (silences spurious warnings).

(cl-compile-time-init): Remove function.
This commit is contained in:
Glenn Morris 2008-07-16 02:50:00 +00:00
parent 7467c796a1
commit 56565c745b

View file

@ -43,9 +43,7 @@
;;; Code:
(or (memq 'cl-19 features)
(error "Tried to load `cl-macs' before `cl'!"))
(require 'cl)
(defmacro cl-pop2 (place)
(list 'prog1 (list 'car (list 'cdr place))
@ -73,11 +71,6 @@
(defvar cl-old-bc-file-form nil)
;;;###autoload
(defun cl-compile-time-init ()
(run-hooks 'cl-hack-bytecomp-hook))
;;; Some predicates for analyzing Lisp forms. These are used by various
;;; macro expanders to optimize the results in certain common cases.