522 |
(deftest count-if-not.error.11 |
(deftest count-if-not.error.11 |
523 |
(classify-error (locally (count-if-not #'identity 1) t)) |
(classify-error (locally (count-if-not #'identity 1) t)) |
524 |
type-error) |
type-error) |
525 |
|
|
526 |
|
(deftest count-if-not.error.12 |
527 |
|
(classify-error (count-if-not #'cons '(a b c))) |
528 |
|
program-error) |
529 |
|
|
530 |
|
(deftest count-if-not.error.13 |
531 |
|
(classify-error (count-if-not #'car '(a b c))) |
532 |
|
type-error) |
533 |
|
|
534 |
|
(deftest count-if-not.error.14 |
535 |
|
(classify-error (count-if-not #'identity '(a b c) :key #'cdr)) |
536 |
|
type-error) |
537 |
|
|
538 |
|
(deftest count-if-not.error.15 |
539 |
|
(classify-error (count-if-not #'identity '(a b c) :key #'cons)) |
540 |
|
program-error) |