[Emacs-diffs] /srv/bzr/emacs/emacs-24 r110919: * lisp/emacs-lisp/byte-run.el (defun-declarations-alist): Don't accept

[Stefan Monnier]

------------------------------------------------------------
revno: 110919
committer: Stefan Monnier <address@hidden>
branch nick: emacs-24
timestamp: Mon 2012-11-19 15:57:36 -0500
message:
  * lisp/emacs-lisp/byte-run.el (defun-declarations-alist): Don't accept
  non-symbols for compiler macros (yet).
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/byte-run.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-11-19 19:22:07 +0000
+++ b/lisp/ChangeLog    2012-11-19 20:57:36 +0000
@@ -1,5 +1,8 @@
 2012-11-19  Stefan Monnier  <address@hidden>
 
+       * 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.

=== modified file 'lisp/emacs-lisp/byte-run.el'
--- a/lisp/emacs-lisp/byte-run.el       2012-10-15 04:03:04 +0000
+++ b/lisp/emacs-lisp/byte-run.el       2012-11-19 20:57:36 +0000
@@ -82,7 +82,9 @@
              `(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))))