701 |
;;; Error tests |
;;; Error tests |
702 |
|
|
703 |
(deftest find-error.1 |
(deftest find-error.1 |
704 |
(handler-case (find 'a 'b) |
(classify-error (find 'a 'b)) |
705 |
(type-error () :type-error) |
type-error) |
|
(error (c) c)) |
|
|
:type-error) |
|
706 |
|
|
707 |
(deftest find-error.2 |
(deftest find-error.2 |
708 |
(handler-case (find 'a 10) |
(classify-error (find 'a 10)) |
709 |
(type-error () :type-error) |
type-error) |
|
(error (c) c)) |
|
|
:type-error) |
|
710 |
|
|
711 |
(deftest find-error.3 |
(deftest find-error.3 |
712 |
(handler-case (find 'a 1.4) |
(classify-error (find 'a 1.4)) |
713 |
(type-error () :type-error) |
type-error) |
|
(error (c) c)) |
|
|
:type-error) |
|
714 |
|
|
715 |
(deftest find-error.4 |
(deftest find-error.4 |
716 |
(locally (declare (optimize (safety 3))) |
(classify-error (find 'e '(a b c . d))) |
717 |
(handler-case (find 'e '(a b c . d)) |
type-error) |
718 |
(type-error () :type-error) |
|
|
(error (c) c))) |
|
|
:type-error) |
|