592 |
(classify-error (locally (count 'a 1) t)) |
(classify-error (locally (count 'a 1) t)) |
593 |
type-error) |
type-error) |
594 |
|
|
595 |
|
(deftest count.error.12 |
596 |
|
(classify-error (count 'b '(a b c) :test #'identity)) |
597 |
|
program-error) |
598 |
|
|
599 |
|
(deftest count.error.13 |
600 |
|
(classify-error (count 'b '(a b c) :key #'car)) |
601 |
|
type-error) |
602 |
|
|
603 |
|
(deftest count.error.14 |
604 |
|
(classify-error (count 'b '(a b c) :test-not #'identity)) |
605 |
|
program-error) |
606 |
|
|
607 |
|
(deftest count.error.15 |
608 |
|
(classify-error (count 'b '(a b c) :key #'cons)) |
609 |
|
program-error) |