76 |
|
|
77 |
(deftest =.7 |
(deftest =.7 |
78 |
(let ((args nil)) |
(let ((args nil)) |
79 |
(loop for i from 1 to (min 256 call-arguments-limit) |
(loop for i from 1 to (min 256 (1- call-arguments-limit)) |
80 |
do (push 17 args) |
do (push 17 args) |
81 |
always (apply #'= args))) |
always (apply #'= args))) |
82 |
t) |
t) |
83 |
|
|
84 |
(deftest =.8 |
(deftest =.8 |
85 |
(loop for i from 2 to (min 256 call-arguments-limit) |
(loop for i from 2 to (min 256 (1- call-arguments-limit)) |
86 |
for args = (append (make-list (1- i) :initial-element 7) |
for args = (append (make-list (1- i) :initial-element 7) |
87 |
(list 23)) |
(list 23)) |
88 |
when (apply #'= args) |
when (apply #'= args) |
235 |
(deftest /=.7 |
(deftest /=.7 |
236 |
(let ((args (list 17)) |
(let ((args (list 17)) |
237 |
(args2 nil)) |
(args2 nil)) |
238 |
(loop for i from 2 to (min 256 call-arguments-limit) |
(loop for i from 2 to (min 256 (1- call-arguments-limit)) |
239 |
do (push 17 args) |
do (push 17 args) |
240 |
do (push i args2) |
do (push i args2) |
241 |
always (and (not (apply #'/= args)) |
always (and (not (apply #'/= args)) |
243 |
t) |
t) |
244 |
|
|
245 |
(deftest /=.8 |
(deftest /=.8 |
246 |
(loop for i from 2 to (min 256 call-arguments-limit) |
(loop for i from 2 to (min 256 (1- call-arguments-limit)) |
247 |
for args = (append (make-list (1- i) :initial-element 7) |
for args = (append (make-list (1- i) :initial-element 7) |
248 |
(list 7)) |
(list 7)) |
249 |
when (apply #'/= args) |
when (apply #'/= args) |
462 |
(deftest <.6 |
(deftest <.6 |
463 |
(let ((args (list 17)) |
(let ((args (list 17)) |
464 |
(args2 nil)) |
(args2 nil)) |
465 |
(loop for i from 2 to (min 256 call-arguments-limit) |
(loop for i from 2 to (min 256 (1- call-arguments-limit)) |
466 |
do (push 17 args) |
do (push 17 args) |
467 |
do (push (- i) args2) |
do (push (- i) args2) |
468 |
unless (and (not (apply #'< args)) |
unless (and (not (apply #'< args)) |
471 |
nil) |
nil) |
472 |
|
|
473 |
(deftest <.7 |
(deftest <.7 |
474 |
(let* ((len (min 256 call-arguments-limit)) |
(let* ((len (min 256 (1- call-arguments-limit))) |
475 |
(args-proto (loop for i from 1 to len collect i))) |
(args-proto (loop for i from 1 to len collect i))) |
476 |
(loop for i from 1 below len |
(loop for i from 1 below len |
477 |
for args = (copy-list args-proto) |
for args = (copy-list args-proto) |
661 |
(let ((args (list 17)) |
(let ((args (list 17)) |
662 |
(args2 nil) |
(args2 nil) |
663 |
(args3 (list 0))) |
(args3 (list 0))) |
664 |
(loop for i from 2 to (min 256 call-arguments-limit) |
(loop for i from 2 to (min 256 (1- call-arguments-limit)) |
665 |
do (push 17 args) |
do (push 17 args) |
666 |
do (push (- i) args2) |
do (push (- i) args2) |
667 |
do (push i args3) |
do (push i args3) |
672 |
nil) |
nil) |
673 |
|
|
674 |
(deftest <=.7 |
(deftest <=.7 |
675 |
(let* ((len (min 256 call-arguments-limit)) |
(let* ((len (min 256 (1- call-arguments-limit))) |
676 |
(args-proto (loop for i from 1 to len collect i))) |
(args-proto (loop for i from 1 to len collect i))) |
677 |
(loop for i from 1 below len |
(loop for i from 1 below len |
678 |
for args = (copy-list args-proto) |
for args = (copy-list args-proto) |
758 |
(deftest >.6 |
(deftest >.6 |
759 |
(let ((args (list 17)) |
(let ((args (list 17)) |
760 |
(args2 nil)) |
(args2 nil)) |
761 |
(loop for i from 2 to (min 256 call-arguments-limit) |
(loop for i from 2 to (min 256 (1- call-arguments-limit)) |
762 |
do (push 17 args) |
do (push 17 args) |
763 |
do (push i args2) |
do (push i args2) |
764 |
unless (and (not (apply #'> args)) |
unless (and (not (apply #'> args)) |
767 |
nil) |
nil) |
768 |
|
|
769 |
(deftest >.7 |
(deftest >.7 |
770 |
(let* ((len (min 256 call-arguments-limit)) |
(let* ((len (min 256 (1- call-arguments-limit))) |
771 |
(args-proto (loop for i from 1 to len collect i))) |
(args-proto (loop for i from 1 to len collect i))) |
772 |
(loop for i from 1 below len |
(loop for i from 1 below len |
773 |
for args = (copy-list args-proto) |
for args = (copy-list args-proto) |
848 |
(let ((args (list 17)) |
(let ((args (list 17)) |
849 |
(args2 (list 0)) |
(args2 (list 0)) |
850 |
(args3 nil)) |
(args3 nil)) |
851 |
(loop for i from 2 to (min 256 call-arguments-limit) |
(loop for i from 2 to (min 256 (1- call-arguments-limit)) |
852 |
do (push 17 args) |
do (push 17 args) |
853 |
do (push (- i) args2) |
do (push (- i) args2) |
854 |
do (push i args3) |
do (push i args3) |
859 |
nil) |
nil) |
860 |
|
|
861 |
(deftest >=.7 |
(deftest >=.7 |
862 |
(let* ((len (min 256 call-arguments-limit)) |
(let* ((len (min 256 (1- call-arguments-limit))) |
863 |
(args-proto (loop for i from 1 to len collect i))) |
(args-proto (loop for i from 1 to len collect i))) |
864 |
(loop for i from 1 below len |
(loop for i from 1 below len |
865 |
for args = (copy-list args-proto) |
for args = (copy-list args-proto) |