* lisp/emacs-lisp/gv.el (setf): Fix debug spec for multiple assignments.

Fixes: debbugs:12879

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 898722232f126ceb05510060a34c7d9f0b92071a..48eced16fe1f374d709b0e60e5a06a5604c3d131 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-11-14  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * emacs-lisp/gv.el (setf): Fix debug spec for multiple assignments
+       (bug#12879).
+
 2012-11-13  Dmitry Gutov  <dgutov@yandex.ru>
 
        * progmodes/ruby-mode.el (ruby-move-to-block): Looks for a block

diff --git a/lisp/emacs-lisp/gv.el b/lisp/emacs-lisp/gv.el
index 02eec08f96bad90a5d73df329f7b7f205dd9a08b..5488330a1a4194d0aef86ca61684f9b66055060b 100644 (file)
--- a/lisp/emacs-lisp/gv.el
+++ b/lisp/emacs-lisp/gv.el
@@ -236,7 +236,7 @@ For example, (setf (cadr x) y) is equivalent to (setcar (cdr x) y).
 The return value is the last VAL in the list.
 
 \(fn PLACE VAL PLACE VAL ...)"
-  (declare (debug (gv-place form)))
+  (declare (debug (&rest [gv-place form])))
   (if (and args (null (cddr args)))
       (let ((place (pop args))
             (val (car args)))