diff options
| author | Stefan Monnier | 2011-04-10 22:18:19 -0300 |
|---|---|---|
| committer | Stefan Monnier | 2011-04-10 22:18:19 -0300 |
| commit | f8fc0578a8b2b4a1afb3b56f9f1451bdfa855fe0 (patch) | |
| tree | ffa94a2e44acd126faa1f4bae0fe484aa80887f4 | |
| parent | f8342cf5441a22fdc1e3e815ca597d19b366622a (diff) | |
| download | emacs-f8fc0578a8b2b4a1afb3b56f9f1451bdfa855fe0.tar.gz emacs-f8fc0578a8b2b4a1afb3b56f9f1451bdfa855fe0.zip | |
* lisp/gnus/registry.el: Require CL before using defmacro*.
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus/registry.el | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index f40f65063a2..7714068e49c 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2011-04-11 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * registry.el: Require CL before using defmacro*. | ||
| 4 | |||
| 1 | 2011-04-11 Katsumi Yamaoka <yamaoka@jpl.org> | 5 | 2011-04-11 Katsumi Yamaoka <yamaoka@jpl.org> |
| 2 | 6 | ||
| 3 | * gnus-art.el (article-treat-date): Assume that | 7 | * gnus-art.el (article-treat-date): Assume that |
diff --git a/lisp/gnus/registry.el b/lisp/gnus/registry.el index 3c402cb361a..23e75815979 100644 --- a/lisp/gnus/registry.el +++ b/lisp/gnus/registry.el | |||
| @@ -77,14 +77,14 @@ | |||
| 77 | 77 | ||
| 78 | ;;; Code: | 78 | ;;; Code: |
| 79 | 79 | ||
| 80 | (eval-when-compile (require 'cl)) | ||
| 81 | |||
| 80 | (eval-when-compile | 82 | (eval-when-compile |
| 81 | (when (null (ignore-errors (require 'ert))) | 83 | (when (null (ignore-errors (require 'ert))) |
| 82 | (defmacro* ert-deftest (name () &body docstring-keys-and-body)))) | 84 | (defmacro* ert-deftest (name () &body docstring-keys-and-body)))) |
| 83 | 85 | ||
| 84 | (ignore-errors | 86 | (ignore-errors |
| 85 | (require 'ert)) | 87 | (require 'ert)) |
| 86 | |||
| 87 | (eval-when-compile (require 'cl)) | ||
| 88 | (eval-and-compile | 88 | (eval-and-compile |
| 89 | (or (ignore-errors (progn | 89 | (or (ignore-errors (progn |
| 90 | (require 'eieio) | 90 | (require 'eieio) |