* lisp/emacs-lisp/byte-run.el (defun-declarations-alist): Don't accept

non-symbols for compiler macros (yet).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e2299df822fd426fab7122f827ae43724d4baf0d..7e9ed2502a7e12fba557ef079fbfc2515452279b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-11-19  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * emacs-lisp/byte-run.el (defun-declarations-alist): Don't accept
+       non-symbols for compiler macros (yet).
+
        * eshell/em-cmpl.el (eshell-pcomplete): Refine fix for bug#12838:
        Fallback on completion-at-point rather than
        pcomplete-expand-and-complete, and only if pcomplete actually failed.

diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index 462b4a25154830a839fb5eb12c84178dbed954d7..544b64bc3a6a7f3db3ade1b84954b5940733c6e0 100644 (file)
--- 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))))