diff options
author | Richard M. Stallman <rms@gnu.org> | 1998-02-09 00:19:00 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1998-02-09 00:19:00 +0000 |
commit | d2fe743a03eb36492cf70bc31d0cb5b2fb43a0d3 (patch) | |
tree | 5b03ab142aa17a79473022dd52b9fe73c2c92d7f | |
parent | c46f83e74f0e15fd1a7304589458667801413399 (diff) | |
download | emacs-d2fe743a03eb36492cf70bc31d0cb5b2fb43a0d3.tar.gz |
(byte-optimize-form-code-walker): Only call compiler-macroexpand if
the function has a cl-compiler-macro property.
-rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 64280a4d549..3453d1d71b6 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -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)) |