Mercurial > emacs
diff lisp/emacs-lisp/byte-opt.el @ 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 | 24c546c71f29 |
children | ef61a9126a73 |
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))