/[gcl]/gcl/ansi-tests/remove-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/remove-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by pfdietz, Mon Nov 11 00:25:26 2002 UTC revision 1.7 by pfdietz, Mon Nov 11 01:48:33 2002 UTC
# Line 35  Line 35 
35                  (let ((seq (if (and (subtypep type 'vector)                  (let ((seq (if (and (subtypep type 'vector)
36                                      (coin 3))                                      (coin 3))
37                                 (make-array                                 (make-array
38                                  (list (+ len (random len)))                                  (list (+ len (random (1+ len))))
39                                  :initial-element (make-random-element element-type)                                  :initial-element (make-random-element element-type)
40                                  :fill-pointer len                                  :fill-pointer len
41                                  :element-type element-type)                                  :element-type element-type)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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