Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sat Oct 19 12:55:37 2002 UTC | revision 1.2 by camm, Sat Oct 26 16:18:13 2002 UTC | |
---|---|---|
# | Line 45 | Line 45 |
45 | x y)) | x y)) |
46 | (1 0 2 10)) | (1 0 2 10)) |
47 | ||
48 | #| | |
49 | (deftest multiple-value-prog1.8 | (deftest multiple-value-prog1.8 |
50 | (let* ((n (min 100 multiple-values-limit))) | (let* ((n (min 100 multiple-values-limit))) |
51 | (not | (not |
# | Line 58 | Line 58 |
58 | nil))) | nil))) |
59 | x)))) | x)))) |
60 | nil) | nil) |
61 | |# | |
62 | ||
63 | (deftest multiple-value-prog1.9 | (deftest multiple-value-prog1.9 |
64 | (let ((x 0) (y 0)) | (let ((x 0) (y 0)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |