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 | 4f493b7c94074a27da54ab1292a7b9476465574b (patch) | |
| tree | a786c4907e6a1a1ed46f47806ed7097200e33665 /lisp/emacs-lisp | |
| parent | 060c3cc98fe974a9ed7d8db067ab8d925c151527 (diff) | |
| download | emacs-4f493b7c94074a27da54ab1292a7b9476465574b.tar.gz emacs-4f493b7c94074a27da54ab1292a7b9476465574b.tar.bz2 emacs-4f493b7c94074a27da54ab1292a7b9476465574b.zip | |
(byte-optimize-form-code-walker): Only call compiler-macroexpand if
the function has a cl-compiler-macro property.
Diffstat (limited to 'lisp/emacs-lisp')
| -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)) |