Ignore:
Timestamp:
Oct 30, 2009, 10:19:11 PM (10 years ago)
Author:
gz
Message:

Merge r13103 (setf values fix)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/setf.lisp

    r13070 r13140  
    900900      (multiple-value-bind (dummies vals newval setter getter)
    901901          (get-setf-expansion place env)
    902         (setf all-dummies (append all-dummies dummies))
    903         (setf all-vals (append all-vals vals))
    904         (setf newvals (append newvals newval))
     902        (setf all-dummies (append all-dummies dummies (cdr newval)))
     903        (setf all-vals (append all-vals vals (mapcar (constantly nil) (cdr newval))))
     904        (setf newvals (append newvals (list (car newval))))
    905905        (push setter setters)
    906906        (push getter getters)))
Note: See TracChangeset for help on using the changeset viewer.