[Emacs-diffs] /srv/bzr/emacs/emacs-24 r110796: * lisp/emacs-lisp/cl.el (defsetf): Pass the third arg to

[Stefan Monnier]

------------------------------------------------------------
revno: 110796
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=12812
committer: Stefan Monnier <address@hidden>
branch nick: emacs-24
timestamp: Tue 2012-11-06 22:14:27 -0500
message:
  * lisp/emacs-lisp/cl.el (defsetf): Pass the third arg to
  gv-define-simple-setter.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/cl.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-11-06 01:49:44 +0000
+++ b/lisp/ChangeLog    2012-11-07 03:14:27 +0000
@@ -1,3 +1,8 @@
+2012-11-07  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/cl.el (defsetf): Pass the third arg to
+       gv-define-simple-setter (bug#12812).
+
 2012-11-06  Stefan Monnier  <address@hidden>
 
        * woman.el (woman-decode-region): Disable adaptive-fill when rendering

=== modified file 'lisp/emacs-lisp/cl.el'
--- a/lisp/emacs-lisp/cl.el     2012-10-30 07:34:37 +0000
+++ b/lisp/emacs-lisp/cl.el     2012-11-07 03:14:27 +0000
@@ -597,7 +597,7 @@
                           (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.