Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |