420 |
|
|
421 |
;;; Argument order tests |
;;; Argument order tests |
422 |
|
|
423 |
(deftest count-if-not-order.1 |
(deftest count-if-not.order.1 |
424 |
(let ((i 0) c1 c2 c3 c4 c5 c6) |
(let ((i 0) c1 c2 c3 c4 c5 c6) |
425 |
(values |
(values |
426 |
(count-if-not |
(count-if-not |
434 |
i c1 c2 c3 c4 c5 c6)) |
i c1 c2 c3 c4 c5 c6)) |
435 |
1 6 1 2 3 4 5 6) |
1 6 1 2 3 4 5 6) |
436 |
|
|
437 |
(deftest count-if-not-order.2 |
(deftest count-if-not.order.2 |
438 |
(let ((i 0) c1 c2 c3 c4 c5 c6) |
(let ((i 0) c1 c2 c3 c4 c5 c6) |
439 |
(values |
(values |
440 |
(count-if-not |
(count-if-not |