Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sat Oct 19 13:39:57 2002 UTC | revision 1.2 by pfdietz, Mon Jan 13 23:19:51 2003 UTC | |
---|---|---|
# | Line 39 | Line 39 |
39 | (deftest values.A | (deftest values.A |
40 | (values (values 1 2) (values 3 4 5) (values) (values 10)) | (values (values 1 2) (values 3 4 5) (values) (values 10)) |
41 | 1 3 nil 10) | 1 3 nil 10) |
42 | ||
43 | (deftest values.B | |
44 | (funcall #'values 1 2 3 4) | |
45 | 1 2 3 4) | |
46 | ||
47 | (deftest values.C | |
48 | (let ((x (loop for i from 1 to (min 1000 | |
49 | (1- call-arguments-limit) | |
50 | (1- multiple-values-limit)) | |
51 | collect i))) | |
52 | (equalt x | |
53 | (multiple-value-list (apply #'values x)))) | |
54 | t) | |
55 | ||
56 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |