754 |
(deftest position.error.11 |
(deftest position.error.11 |
755 |
(classify-error (locally (position 'a 'b) t)) |
(classify-error (locally (position 'a 'b) t)) |
756 |
type-error) |
type-error) |
757 |
|
|
758 |
|
(deftest position.error.12 |
759 |
|
(classify-error (position 'b '(a b c d) :test #'identity)) |
760 |
|
program-error) |
761 |
|
|
762 |
|
(deftest position.error.13 |
763 |
|
(classify-error (position 'b '(a b c d) :test-not #'not)) |
764 |
|
program-error) |
765 |
|
|
766 |
|
(deftest position.error.14 |
767 |
|
(classify-error (position 'b '(a b c d) :key #'cdr)) |
768 |
|
type-error) |
769 |
|
|
770 |
|
(deftest position.error.15 |
771 |
|
(classify-error (position 'b '(a b c d) :key #'cons)) |
772 |
|
program-error) |
773 |
|
|