Close bug#6408.

* lisp/emacs-lisp/cl-macs.el (destructuring-bind): Bind `bind-enquote',
used by cl-do-arglist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d193663ed09e57152917eb13a5c94d4345cd1768..1de8e4af69bad20266ce7cd1dfd61a41a7e00fe0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-06-12  Helmut Eller  <eller.helmut@gmail.com>
+
+       * emacs-lisp/cl-macs.el (destructuring-bind): Bind `bind-enquote',
+       used by cl-do-arglist.  (Bug#6408)
+
 2010-06-09  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/advice.el (ad-compile-function):

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 8a60ffdf1fe536d4e4f29880e5f59f9111c3556b..3e800c5300814d7a378aac9d47348475b48c94c6 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -432,7 +432,7 @@ It is a list of elements of the form either:
 ;;;###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))