* lisp/emacs-lisp/cl.el (defsetf): Pass the third arg to

gv-define-simple-setter.

Fixes: debbugs:12812

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e89af026c6643627531cbfebbe03f869df019b77..b88baaa2f0a3b6bdd188767a45c7f48d515cfe9a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-11-07  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * emacs-lisp/cl.el (defsetf): Pass the third arg to
+       gv-define-simple-setter (bug#12812).
+
 2012-11-06  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * woman.el (woman-decode-region): Disable adaptive-fill when rendering

diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index d3ef83961e20f342d01451348b1d374cf740304c..52567f3427838fed58a7b9e16d10a95e2e490568 100644 (file)
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -597,7 +597,7 @@ Example:
                           (cl-function
                            (lambda (,@(car args) ,@arg1) ,@(cdr args)))
                          do args)))
-    `(gv-define-simple-setter ,name ,arg1)))
+    `(gv-define-simple-setter ,name ,arg1 ,(car args))))
 
 ;; FIXME: CL used to provide a setf method for `apply', but I haven't been able
 ;; to find a case where it worked.  The code below tries to handle it as well.