Parent Directory | Revision Log | Patch
revision 1.2 by camm, Sat Oct 26 16:18:13 2002 UTC | revision 1.3 by pfdietz, Fri Jan 24 04:22:54 2003 UTC | |
---|---|---|
# | Line 48 | Line 48 |
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-mv |
52 | (loop for i from 0 below n | (loop for i from 0 below n |
53 | for x = (make-int-list i) | for x = (make-int-list i) |
54 | always | always |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |