[Openmcl-devel] [Patch]: nested values places in setf

[Stas Boukarev]

(let ((a t) (b t))
  (setf (values (values a b)) (values 1 2))
  (list a b))

should return (1 NIL), but returns (1 2).

Looks like this was introduced by modifying original cmucl sources,
putting removed parts back does fix it.

-------------- next part --------------
A non-text attachment was scrubbed...
Name: values.diff
Type: text/x-diff
Size: 738 bytes
Desc: not available
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20090827/cc8a7f3c/attachment.bin>
-------------- next part --------------

-- 
With best regards, Stas.