488 |
|
|
489 |
;;; Argument order tests |
;;; Argument order tests |
490 |
|
|
491 |
(deftest count-order.1 |
(deftest count.order.1 |
492 |
(let ((i 0) c1 c2 c3 c4 c5 c6 c7) |
(let ((i 0) c1 c2 c3 c4 c5 c6 c7) |
493 |
(values |
(values |
494 |
(count (progn (setf c1 (incf i)) nil) |
(count (progn (setf c1 (incf i)) nil) |
502 |
i c1 c2 c3 c4 c5 c6 c7)) |
i c1 c2 c3 c4 c5 c6 c7)) |
503 |
1 7 1 2 3 4 5 6 7) |
1 7 1 2 3 4 5 6 7) |
504 |
|
|
505 |
(deftest count-order.2 |
(deftest count.order.2 |
506 |
(let ((i 0) c1 c2 c3 c4 c5 c6 c7) |
(let ((i 0) c1 c2 c3 c4 c5 c6 c7) |
507 |
(values |
(values |
508 |
(count (progn (setf c1 (incf i)) nil) |
(count (progn (setf c1 (incf i)) nil) |