procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
non-symbols for compiler macros (yet).
This commit is contained in:
Stefan Monnier 2012-11-19 15:57:36 -05:00
parent 93b050412a
commit 63f251724c
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/byte-run.el
View file

@ -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))))