Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Mon Jan 13 23:19:51 2003 UTC | revision 1.3 by pfdietz, Sat Feb 15 05:11:12 2003 UTC | |
---|---|---|
# | Line 53 | Line 53 |
53 | (multiple-value-list (apply #'values x)))) | (multiple-value-list (apply #'values x)))) |
54 | t) | t) |
55 | ||
56 | (deftest values.order.1 | |
57 | (let ((i 0) a b c) | |
58 | (values (multiple-value-list | |
59 | (values (setf a (incf i)) (setf b (incf i)) (setf c (incf i)))) | |
60 | i a b c)) | |
61 | (1 2 3) 3 1 2 3) | |
62 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |