Changeset 13140

Timestamp:

Oct 30, 2009, 3:19:11 PM (15 years ago)

Author:

gz

Message:

Merge r13103 (setf values fix)

File:

• branches/working-0711/ccl/lib/setf.lisp (modified) (1 diff)

branches/working-0711/ccl/lib/setf.lisp

@@ -900 +900 @@
       (multiple-value-bind (dummies vals newval setter getter) 
           (get-setf-expansion place env) 
-        (setf all-dummies (append all-dummies dummies)) 
-        (setf all-vals (append all-vals vals)) 
-        (setf newvals (append newvals newval)) 
+        (setf all-dummies (append all-dummies dummies (cdr newval))) 
+        (setf all-vals (append all-vals vals (mapcar (constantly nil) (cdr newval)))) 
+        (setf newvals (append newvals (list (car newval)))) 
         (push setter setters)
         (push getter getters)))