diff options
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 121bd5eea3b..9ca675f08c4 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -43,9 +43,7 @@ | |||
| 43 | 43 | ||
| 44 | ;;; Code: | 44 | ;;; Code: |
| 45 | 45 | ||
| 46 | (or (memq 'cl-19 features) | 46 | (require 'cl) |
| 47 | (error "Tried to load `cl-macs' before `cl'!")) | ||
| 48 | |||
| 49 | 47 | ||
| 50 | (defmacro cl-pop2 (place) | 48 | (defmacro cl-pop2 (place) |
| 51 | (list 'prog1 (list 'car (list 'cdr place)) | 49 | (list 'prog1 (list 'car (list 'cdr place)) |
| @@ -73,11 +71,6 @@ | |||
| 73 | 71 | ||
| 74 | (defvar cl-old-bc-file-form nil) | 72 | (defvar cl-old-bc-file-form nil) |
| 75 | 73 | ||
| 76 | ;;;###autoload | ||
| 77 | (defun cl-compile-time-init () | ||
| 78 | (run-hooks 'cl-hack-bytecomp-hook)) | ||
| 79 | |||
| 80 | |||
| 81 | ;;; Some predicates for analyzing Lisp forms. These are used by various | 74 | ;;; Some predicates for analyzing Lisp forms. These are used by various |
| 82 | ;;; macro expanders to optimize the results in certain common cases. | 75 | ;;; macro expanders to optimize the results in certain common cases. |
| 83 | 76 | ||