* lisp/emacs-lisp/cl-macs.el (cl-symbol-macrolet): Fix debug spec

(Bug#24733)
This commit is contained in:
Johan Bockgård 2016-10-22 00:14:44 +02:00
parent 8e7b1af1d7
commit dec329aefc

View file

@ -2134,7 +2134,7 @@ Within the body FORMs, references to the variable NAME will be replaced
by EXPANSION, and (setq NAME ...) will act like (setf EXPANSION ...).
\(fn ((NAME EXPANSION) ...) FORM...)"
(declare (indent 1) (debug ((&rest (symbol sexp)) cl-declarations body)))
(declare (indent 1) (debug ((&rest (symbolp sexp)) cl-declarations body)))
(cond
((cdr bindings)
`(cl-symbol-macrolet (,(car bindings))