diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-11-19 15:57:36 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-11-19 15:57:36 -0500 |
| commit | 63f251724c324fc04d987877d06ca62ac1735b0a (patch) | |
| tree | d2b865becf3a7227c65a4c9b7699e3466b063fc6 /lisp/emacs-lisp | |
| parent | 93b050412adab7512b7ebc77077fdbbe72730114 (diff) | |
| download | emacs-63f251724c324fc04d987877d06ca62ac1735b0a.tar.gz emacs-63f251724c324fc04d987877d06ca62ac1735b0a.tar.bz2 emacs-63f251724c324fc04d987877d06ca62ac1735b0a.zip | |
* lisp/emacs-lisp/byte-run.el (defun-declarations-alist): Don't accept
non-symbols for compiler macros (yet).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-run.el | 4 |
1 files changed, 3 insertions, 1 deletions
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)))) |