diff options
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index 107f8b1b223..16e777ed2b5 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; cl-extra.el --- Common Lisp features, part 2 -*-byte-compile-dynamic: t;-*- | 1 | ;;; cl-extra.el --- Common Lisp features, part 2 -*-byte-compile-dynamic: t;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993,2000,2003 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1993, 2000, 2003, 2005 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Dave Gillespie <daveg@synaptics.com> | 5 | ;; Author: Dave Gillespie <daveg@synaptics.com> |
| 6 | ;; Keywords: extensions | 6 | ;; Keywords: extensions |
| @@ -38,9 +38,7 @@ | |||
| 38 | 38 | ||
| 39 | ;;; Code: | 39 | ;;; Code: |
| 40 | 40 | ||
| 41 | (or (memq 'cl-19 features) | 41 | (require 'cl) |
| 42 | (error "Tried to load `cl-extra' before `cl'!")) | ||
| 43 | |||
| 44 | 42 | ||
| 45 | ;;; Type coercion. | 43 | ;;; Type coercion. |
| 46 | 44 | ||
| @@ -763,5 +761,5 @@ This also does some trivial optimizations to make the form prettier." | |||
| 763 | 761 | ||
| 764 | (run-hooks 'cl-extra-load-hook) | 762 | (run-hooks 'cl-extra-load-hook) |
| 765 | 763 | ||
| 766 | ;;; arch-tag: bcd03437-0871-43fb-a8f1-ad0e0b5427ed | 764 | ;; arch-tag: bcd03437-0871-43fb-a8f1-ad0e0b5427ed |
| 767 | ;;; cl-extra.el ends here | 765 | ;;; cl-extra.el ends here |