diff options
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)))) |