Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sat Oct 19 13:39:57 2002 UTC | revision 1.2 by pfdietz, Sat Feb 15 05:11:11 2003 UTC | |
---|---|---|
# | Line 27 | Line 27 |
27 | (nth-value 100 'a) | (nth-value 100 'a) |
28 | nil) | nil) |
29 | ||
30 | (deftest nth-value.order.1 | |
31 | (let ((i 0) x y) | |
32 | (values | |
33 | (nth-value (progn (setf x (incf i)) 3) | |
34 | (progn (setf y (incf i)) (values 'a 'b 'c 'd 'e 'f 'g))) | |
35 | i x y)) | |
36 | d 2 1 2) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |