414 |
;;; Error tests |
;;; Error tests |
415 |
|
|
416 |
(deftest position-if-not-error.1 |
(deftest position-if-not-error.1 |
417 |
(handler-case (position-if-not #'identity 'b) |
(classify-error (position-if-not #'identity 'b)) |
418 |
(type-error () :type-error) |
type-error) |
|
(error (c) c)) |
|
|
:type-error) |
|
419 |
|
|
420 |
(deftest position-if-not-error.2 |
(deftest position-if-not-error.2 |
421 |
(handler-case (position-if-not #'identity 10) |
(classify-error (position-if-not #'identity 10)) |
422 |
(type-error () :type-error) |
type-error) |
|
(error (c) c)) |
|
|
:type-error) |
|
423 |
|
|
424 |
(deftest position-if-not-error.3 |
(deftest position-if-not-error.3 |
425 |
(handler-case (position-if-not 'null 1.4) |
(classify-error (position-if-not 'null 1.4)) |
426 |
(type-error () :type-error) |
type-error) |
|
(error (c) c)) |
|
|
:type-error) |
|
427 |
|
|
428 |
(deftest position-if-not-error.4 |
(deftest position-if-not-error.4 |
429 |
(locally (declare (optimize (safety 3))) |
(classify-error (position-if-not 'identity '(a b c . d))) |
430 |
(handler-case (position-if-not 'identity '(a b c . d)) |
type-error) |
431 |
(type-error () :type-error) |
|
|
(error (c) c))) |
|
|
:type-error) |
|