487 |
;;; Error tests |
;;; Error tests |
488 |
|
|
489 |
(deftest find-if-not-error.1 |
(deftest find-if-not-error.1 |
490 |
(handler-case (find-if-not #'null 'b) |
(classify-error (find-if-not #'null 'b)) |
491 |
(type-error () :type-error) |
type-error) |
|
(error (c) c)) |
|
|
:type-error) |
|
492 |
|
|
493 |
(deftest find-if-not-error.2 |
(deftest find-if-not-error.2 |
494 |
(handler-case (find-if-not #'identity 10) |
(classify-error (find-if-not #'identity 10)) |
495 |
(type-error () :type-error) |
type-error) |
|
(error (c) c)) |
|
|
:type-error) |
|
496 |
|
|
497 |
(deftest find-if-not-error.3 |
(deftest find-if-not-error.3 |
498 |
(handler-case (find-if-not '1+ 1.4) |
(classify-error (find-if-not '1+ 1.4)) |
499 |
(type-error () :type-error) |
type-error) |
|
(error (c) c)) |
|
|
:type-error) |
|
500 |
|
|
501 |
(deftest find-if-not-error.4 |
(deftest find-if-not-error.4 |
502 |
(locally (declare (optimize (safety 3))) |
(classify-error (find-if-not 'identity '(a b c . d))) |
503 |
(handler-case (find-if-not 'identity '(a b c . d)) |
type-error) |
|
(type-error () :type-error))) |
|
|
:type-error) |
|
|
|
|
|
|
|
|
|
|
|
|
|