/[gcl]/gcl/ansi-tests/print-cons.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/print-cons.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26