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