procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(byte-optimize-form-code-walker):

Browse source 
If compiler-macroexpand is defined, use it.
This commit is contained in:
Richard M. Stallman 1998-01-22 02:23:21 +00:00
parent 76b233658b
commit 5428ee0299
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -504,6 +504,13 @@
(setq form (macroexpand form
byte-compile-macro-environment))))
(byte-optimize-form form for-effect))
;; Support compiler macros as in cl.el.
((and (fboundp 'compiler-macroexpand)
(not (eq form
(setq form (compiler-macroexpand form
byte-compile-macro-environment)))))
(byte-optimize-form form for-effect))
((not (symbolp fn))
(or (eq 'mocklisp (car-safe fn)) ; ha!