567 |
;;; Error tests |
;;; Error tests |
568 |
|
|
569 |
(deftest position-error.1 |
(deftest position-error.1 |
570 |
(handler-case (position 'a 'b) |
(classify-error (position 'a 'b)) |
571 |
(type-error () :type-error) |
type-error) |
|
(error (c) c)) |
|
|
:type-error) |
|
572 |
|
|
573 |
(deftest position-error.2 |
(deftest position-error.2 |
574 |
(handler-case (position 'a 10) |
(classify-error (position 'a 10)) |
575 |
(type-error () :type-error) |
type-error) |
|
(error (c) c)) |
|
|
:type-error) |
|
576 |
|
|
577 |
(deftest position-error.3 |
(deftest position-error.3 |
578 |
(handler-case (position 'a 1.4) |
(classify-error (position 'a 1.4)) |
579 |
(type-error () :type-error) |
type-error) |
|
(error (c) c)) |
|
|
:type-error) |
|
580 |
|
|
581 |
(deftest position-error.4 |
(deftest position-error.4 |
582 |
(locally (declare (optimize (safety 3))) |
(classify-error (position 'e '(a b c . d))) |
583 |
(handler-case (position 'e '(a b c . d)) |
type-error) |
584 |
(type-error () :type-error) |
|
|
(error (c) c))) |
|
|
:type-error) |
|
585 |
|
|
586 |
|
|
587 |
|
|