21 |
(multiple-value-list (values (values 'a 'b 'c 'd 'e))) |
(multiple-value-list (values (values 'a 'b 'c 'd 'e))) |
22 |
(a)) |
(a)) |
23 |
|
|
24 |
|
(deftest multiple-value-list.5 |
25 |
|
(multiple-value-list (values 'a)) |
26 |
|
(a)) |
27 |
|
|
28 |
|
(deftest multiple-value-list.6 |
29 |
|
(multiple-value-list (values 'a 'b)) |
30 |
|
(a b)) |
31 |
|
|
32 |
|
(deftest multiple-value-list.7 |
33 |
|
(not |
34 |
|
(loop |
35 |
|
for i from 0 below (min multiple-values-limit 100) |
36 |
|
for x = (make-list i :initial-element 'a) |
37 |
|
always (equal x (multiple-value-list (values-list x))))) |
38 |
|
nil) |
39 |
|
|
40 |
|
|
41 |
(deftest multiple-value-list.order.1 |
(deftest multiple-value-list.order.1 |
42 |
(let ((i 0)) |
(let ((i 0)) |
43 |
(values (multiple-value-list (incf i)) i)) |
(values (multiple-value-list (incf i)) i)) |