33 |
(not (eql (min n n) n)) |
(not (eql (min n n) n)) |
34 |
(not (eql (min n n n) n)) |
(not (eql (min n n n) n)) |
35 |
(not (eql (apply #'min (make-list |
(not (eql (apply #'min (make-list |
36 |
(min 256 call-arguments-limit) |
(min 256 (1- call-arguments-limit)) |
37 |
:initial-element n)) |
:initial-element n)) |
38 |
n))) |
n))) |
39 |
collect n) |
collect n) |
174 |
1.0l0) |
1.0l0) |
175 |
|
|
176 |
(deftest min.27 |
(deftest min.27 |
177 |
(loop for i from 1 to (min 256 call-arguments-limit) |
(loop for i from 1 to (min 256 (1- call-arguments-limit)) |
178 |
for x = (make-list i :initial-element 1) |
for x = (make-list i :initial-element 1) |
179 |
do (setf (elt x (random i)) 0) |
do (setf (elt x (random i)) 0) |
180 |
unless (eql (apply #'min x) 0) |
unless (eql (apply #'min x) 0) |