From 4f493b7c94074a27da54ab1292a7b9476465574b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 9 Feb 1998 00:19:00 +0000 Subject: (byte-optimize-form-code-walker): Only call compiler-macroexpand if the function has a cl-compiler-macro property. --- lisp/emacs-lisp/byte-opt.el | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lisp/emacs-lisp/byte-opt.el') 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)) -- cgit v1.2.3