417 |
(count-if #'digit-char-p s :start 1 :end 2))) |
(count-if #'digit-char-p s :start 1 :end 2))) |
418 |
3 3 2 2 1) |
3 3 2 2 1) |
419 |
|
|
420 |
;;; Allow-other-keys tests |
;;; Keyword tests |
421 |
|
|
422 |
(deftest count-if.allow-other-keys.1 |
(deftest count-if.allow-other-keys.1 |
423 |
(count-if #'evenp '(1 2 3 4 5) :bad t :allow-other-keys t) |
(count-if #'evenp '(1 2 3 4 5) :bad t :allow-other-keys t) |
435 |
:bad t) |
:bad t) |
436 |
2) |
2) |
437 |
|
|
438 |
(deftest count-if.allow-other-keys.4 |
(deftest count-if.keywords.4 |
439 |
(count-if #'evenp '(1 2 3 4 5) :key #'identity :key #'1+) |
(count-if #'evenp '(1 2 3 4 5) :key #'identity :key #'1+) |
440 |
2) |
2) |
441 |
|
|
442 |
|
(deftest count-if.allow-other-keys.5 |
443 |
|
(count-if #'evenp '(1 2 3 4 5) :allow-other-keys nil) |
444 |
|
2) |
445 |
|
|
446 |
|
|
447 |
;;; Error tests |
;;; Error tests |