Mercurial > emacs
changeset 20874:223c220043af
(byte-optimize-form-code-walker): Only call compiler-macroexpand if
the function has a cl-compiler-macro property.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 09 Feb 1998 00:19:00 +0000 |
| parents | d2b5d0e2607e |
| children | 4fac9830041a |
| files | lisp/emacs-lisp/byte-opt.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el Sun Feb 08 22:45:47 1998 +0000 +++ b/lisp/emacs-lisp/byte-opt.el Mon Feb 09 00:19:00 1998 +0000 @@ -510,6 +510,8 @@ ;; Support compiler macros as in cl.el. ((and (fboundp 'compiler-macroexpand) + (symbolp (car-safe form)) + (get (car-safe form) 'cl-compiler-macro) (not (eq form (setq form (compiler-macroexpand form))))) (byte-optimize-form form for-effect))