Forked from
cmucl / cmucl
Source project has a limited visibility.
-
rtoy authored
This causes (let ((a t) (b t) (c t) (d t) (e t) (f t)) (setf (values a (values b c) (values d) (values e f)) (values 0 1 2 3 4 5 6)) (list a b c d e f)) to return the (0 1 2 3 4 5) instead of (0 1 nil 2 3 nil).
rtoy authoredThis causes (let ((a t) (b t) (c t) (d t) (e t) (f t)) (setf (values a (values b c) (values d) (values e f)) (values 0 1 2 3 4 5 6)) (list a b c d e f)) to return the (0 1 2 3 4 5) instead of (0 1 nil 2 3 nil).