Commit 4f493b7c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

the function has a cl-compiler-macro property.
parent 060c3cc9
......@@ -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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment