Mercurial > emacs
diff lisp/emacs-lisp/cl-macs.el @ 108997:79b2da2db690
Close bug#6408.
* lisp/emacs-lisp/cl-macs.el (destructuring-bind): Bind `bind-enquote',
used by cl-do-arglist.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 12 Jun 2010 00:06:15 -0700 |
parents | 893b1b725ad5 |
children | 6c39bda25895 376148b31b5e |
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-macs.el Wed Jun 09 22:09:27 2010 -0700 +++ b/lisp/emacs-lisp/cl-macs.el Sat Jun 12 00:06:15 2010 -0700 @@ -432,7 +432,7 @@ ;;;###autoload (defmacro destructuring-bind (args expr &rest body) (let* ((bind-lets nil) (bind-forms nil) (bind-inits nil) - (bind-defs nil) (bind-block 'cl-none)) + (bind-defs nil) (bind-block 'cl-none) (bind-enquote nil)) (cl-do-arglist (or args '(&aux)) expr) (append '(progn) bind-inits (list (nconc (list 'let* (nreverse bind-lets))