148 |
((2 3) (random (1+ len))) |
((2 3) (random (1+ len))) |
149 |
(t (if (coin) -1 -10000000000000)))) |
(t (if (coin) -1 -10000000000000)))) |
150 |
(seq (multiple-value-bind (x y z) (make-random-remove-input len type element-type) |
(seq (multiple-value-bind (x y z) (make-random-remove-input len type element-type) |
151 |
|
(declare (ignore x z)) |
152 |
y)) |
y)) |
153 |
(key (and (coin) |
(key (and (coin) |
154 |
(case type-select |
(case type-select |
173 |
(defun random-test-remove-args (maxlen) |
(defun random-test-remove-args (maxlen) |
174 |
(multiple-value-bind (element-type type len start end from-end count seq key test test-not) |
(multiple-value-bind (element-type type len start end from-end count seq key test test-not) |
175 |
(make-random-rd-params maxlen) |
(make-random-rd-params maxlen) |
176 |
|
(declare (ignore type)) |
177 |
(let ((element (if (and (coin) (> len 0)) |
(let ((element (if (and (coin) (> len 0)) |
178 |
(random-from-seq seq) |
(random-from-seq seq) |
179 |
(make-random-element element-type))) |
(make-random-element element-type))) |