Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Mon Sep 30 02:00:27 2002 UTC | revision 1.3 by pfdietz, Sat Jul 12 13:46:01 2003 UTC | |
---|---|---|
# | Line 55 | Line 55 |
55 | (multiple-value-bind (element-type type len start end from-end | (multiple-value-bind (element-type type len start end from-end |
56 | count seq key test test-not) | count seq key test test-not) |
57 | (make-random-rd-params maxlen) | (make-random-rd-params maxlen) |
58 | (declare (ignore count element-type)) | (declare (ignore count element-type len type)) |
59 | (let ((arg-list | (let ((arg-list |
60 | (reduce #'nconc | (reduce #'nconc |
61 | (random-permute | (random-permute |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |