From 63f251724c324fc04d987877d06ca62ac1735b0a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 19 Nov 2012 15:57:36 -0500 Subject: * lisp/emacs-lisp/byte-run.el (defun-declarations-alist): Don't accept non-symbols for compiler macros (yet). --- lisp/emacs-lisp/byte-run.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp/byte-run.el') diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 462b4a25154..544b64bc3a6 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -82,7 +82,9 @@ The return value of this function is not used." `(make-obsolete ',f ',new-name ,when))) (list 'compiler-macro #'(lambda (f _args compiler-function) - `(put ',f 'compiler-macro #',compiler-function))) + (if (not (symbolp compiler-function)) + (error "Only symbols are supported in `compiler-macro'") + `(put ',f 'compiler-macro #',compiler-function)))) (list 'doc-string #'(lambda (f _args pos) (list 'put (list 'quote f) ''doc-string-elt (list 'quote pos)))) -- cgit v1.2.3