557 |
(deftest position-if-not.error.11 |
(deftest position-if-not.error.11 |
558 |
(classify-error (locally (position-if-not #'identity 'b) t)) |
(classify-error (locally (position-if-not #'identity 'b) t)) |
559 |
type-error) |
type-error) |
560 |
|
|
561 |
|
(deftest position-if-not.error.12 |
562 |
|
(classify-error (position-if-not #'cons '(a b c d))) |
563 |
|
program-error) |
564 |
|
|
565 |
|
(deftest position-if-not.error.13 |
566 |
|
(classify-error (position-if-not #'car '(a b c d))) |
567 |
|
type-error) |
568 |
|
|
569 |
|
(deftest position-if-not.error.14 |
570 |
|
(classify-error (position-if-not #'identity '(a b c d) :key #'cdr)) |
571 |
|
type-error) |
572 |
|
|
573 |
|
(deftest position-if-not.error.15 |
574 |
|
(classify-error (position-if-not #'identity '(a b c d) :key #'cons)) |
575 |
|
program-error) |