836 |
(deftest substitute-if.error.7 |
(deftest substitute-if.error.7 |
837 |
(classify-error (substitute-if 'a #'null nil 1 2)) |
(classify-error (substitute-if 'a #'null nil 1 2)) |
838 |
program-error) |
program-error) |
839 |
|
|
840 |
|
(deftest substitute-if.error.8 |
841 |
|
(classify-error (substitute-if 'a #'cons (list 'a 'b 'c))) |
842 |
|
program-error) |
843 |
|
|
844 |
|
(deftest substitute-if.error.9 |
845 |
|
(classify-error (substitute-if 'a #'car (list 'a 'b 'c))) |
846 |
|
type-error) |
847 |
|
|
848 |
|
(deftest substitute-if.error.10 |
849 |
|
(classify-error (substitute-if 'a #'identity (list 'a 'b 'c) |
850 |
|
:key #'car)) |
851 |
|
type-error) |
852 |
|
|
853 |
|
(deftest substitute-if.error.11 |
854 |
|
(classify-error (substitute-if 'a #'identity (list 'a 'b 'c) |
855 |
|
:key #'cons)) |
856 |
|
program-error) |