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

Fixes: debbugs:12879
This commit is contained in:
Stefan Monnier 2012-11-13 20:12:52 -05:00
parent 5e9419e849
commit 9c3912d3d9
2 changed files with 6 additions and 1 deletions

View file

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

View file

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