* 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 e89af02..b88baaa 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 d3ef839..52567f3 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.