Parent Directory | Revision Log | Patch
revision 1.12 by camm, Thu Nov 25 19:51:59 2004 UTC | revision 1.13 by camm, Sat Dec 11 01:23:02 2004 UTC | |
---|---|---|
# | Line 70 | Line 70 |
70 | (deftest print.cons.random.2 | (deftest print.cons.random.2 |
71 | (loop repeat 50 | (loop repeat 50 |
72 | nconc | nconc |
73 | (let* ((n 50) | (let* ((n 20) |
74 | (conses (apply #'vector | (conses (apply #'vector |
75 | (loop repeat n collect (cons nil nil))))) | (loop repeat n collect (cons nil nil))))) |
76 | (loop for x across conses | (loop for x across conses |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |