537 |
;;; Error tests |
;;; Error tests |
538 |
|
|
539 |
(deftest position-if-not.error.1 |
(deftest position-if-not.error.1 |
540 |
(signals-error (position-if-not #'identity 'b) type-error) |
(check-type-error #'(lambda (x) (position-if-not #'identity x)) #'sequencep) |
541 |
t) |
nil) |
|
|
|
|
(deftest position-if-not.error.2 |
|
|
(signals-error (position-if-not #'identity 10) type-error) |
|
|
t) |
|
|
|
|
|
(deftest position-if-not.error.3 |
|
|
(signals-error (position-if-not 'null 1.4) type-error) |
|
|
t) |
|
542 |
|
|
543 |
(deftest position-if-not.error.4 |
(deftest position-if-not.error.4 |
544 |
(signals-error (position-if-not 'identity '(a b c . d)) type-error) |
(signals-error (position-if-not 'identity '(a b c . d)) type-error) |