Changeset 13103


Ignore:
Timestamp:
Oct 27, 2009, 11:11:36 AM (10 years ago)
Author:
gb
Message:

Patch from Stas Boukarev (fixes ticket:607).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/setf.lisp

    r13067 r13103  
    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.