mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-01 09:51:22 -08:00
Code Issues Projects Releases Wiki Activity

(byte-optimize-form-code-walker): Only call compiler-macroexpand if

Browse source 
the function has a cl-compiler-macro property.
This commit is contained in:
Richard M. Stallman 1998-02-09 00:19:00 +00:00
parent 060c3cc98f
commit 4f493b7c94
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/byte-opt.el
View file

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