447 |
;;; Error tests |
;;; Error tests |
448 |
|
|
449 |
(deftest count-if.error.1 |
(deftest count-if.error.1 |
450 |
(catch-type-error (count-if #'identity 1)) |
(classify-error (count-if #'identity 1)) |
451 |
type-error) |
type-error) |
452 |
|
|
453 |
(deftest count-if.error.2 |
(deftest count-if.error.2 |
454 |
(catch-type-error (count-if #'identity 'a)) |
(classify-error (count-if #'identity 'a)) |
455 |
type-error) |
type-error) |
456 |
|
|
457 |
(deftest count-if.error.3 |
(deftest count-if.error.3 |
458 |
(catch-type-error (count-if #'identity #\a)) |
(classify-error (count-if #'identity #\a)) |
459 |
type-error) |
type-error) |
460 |
|
|
461 |
(deftest count-if.error.4 |
(deftest count-if.error.4 |
488 |
:allow-other-keys nil |
:allow-other-keys nil |
489 |
:allow-other-keys t)) |
:allow-other-keys t)) |
490 |
program-error) |
program-error) |
491 |
|
|
492 |
|
(deftest count-if.error.11 |
493 |
|
(classify-error (locally (count-if #'identity 1) t)) |
494 |
|
type-error) |