418 |
(count-if-not #'%onep a :from-end t))))) |
(count-if-not #'%onep a :from-end t))))) |
419 |
2 3 2 3) |
2 3 2 3) |
420 |
|
|
421 |
|
;;; Argument order tests |
422 |
|
|
423 |
|
(deftest count-if-not-order.1 |
424 |
|
(let ((i 0) c1 c2 c3 c4 c5 c6) |
425 |
|
(values |
426 |
|
(count-if-not |
427 |
|
(progn (setf c1 (incf i)) #'null) |
428 |
|
(progn (setf c2 (incf i)) '(a nil b c nil d e)) |
429 |
|
:start (progn (setf c3 (incf i)) 0) |
430 |
|
:end (progn (setf c4 (incf i)) 3) |
431 |
|
:key (progn (setf c5 (incf i)) #'not) |
432 |
|
:from-end (progn (setf c6 (incf i)) nil) |
433 |
|
) |
434 |
|
i c1 c2 c3 c4 c5 c6)) |
435 |
|
1 6 1 2 3 4 5 6) |
436 |
|
|
437 |
|
(deftest count-if-not-order.2 |
438 |
|
(let ((i 0) c1 c2 c3 c4 c5 c6) |
439 |
|
(values |
440 |
|
(count-if-not |
441 |
|
(progn (setf c1 (incf i)) #'null) |
442 |
|
(progn (setf c2 (incf i)) '(a nil b c nil d e)) |
443 |
|
:from-end (progn (setf c3 (incf i)) nil) |
444 |
|
:key (progn (setf c4 (incf i)) #'not) |
445 |
|
:end (progn (setf c5 (incf i)) 3) |
446 |
|
:start (progn (setf c6 (incf i)) 0) |
447 |
|
) |
448 |
|
i c1 c2 c3 c4 c5 c6)) |
449 |
|
1 6 1 2 3 4 5 6) |
450 |
|
|
451 |
;;; Keyword tests |
;;; Keyword tests |
452 |
|
|
453 |
(deftest count-if-not.keywords.1 |
(deftest count-if-not.keywords.1 |