From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 9 Feb 1998 00:19:00 +0000 (+0000)
Subject: (byte-optimize-form-code-walker): Only call compiler-macroexpand if
X-Git-Tag: emacs-20.3~2200
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4f493b7c94074a27da54ab1292a7b9476465574b;p=emacs.git

(byte-optimize-form-code-walker): Only call compiler-macroexpand if
the function has a cl-compiler-macro property.
---

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