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)) |