181 |
(classify-error (sublis nil 'a :bad-keyword t)) |
(classify-error (sublis nil 'a :bad-keyword t)) |
182 |
program-error) |
program-error) |
183 |
|
|
184 |
|
(deftest sublis.error.5 |
185 |
|
(classify-error (sublis '((a . 1) (b . 2)) |
186 |
|
(list 'a 'b 'c 'd) |
187 |
|
:test #'identity)) |
188 |
|
program-error) |
189 |
|
|
190 |
|
(deftest sublis.error.6 |
191 |
|
(classify-error (sublis '((a . 1) (b . 2)) |
192 |
|
(list 'a 'b 'c 'd) |
193 |
|
:key #'cons)) |
194 |
|
program-error) |
195 |
|
|
196 |
|
(deftest sublis.error.7 |
197 |
|
(classify-error (sublis '((a . 1) (b . 2)) |
198 |
|
(list 'a 'b 'c 'd) |
199 |
|
:test-not #'identity)) |
200 |
|
program-error) |
201 |
|
|
202 |
;; nsublis |
;; nsublis |
203 |
|
|
204 |
(deftest nsublis.1 |
(deftest nsublis.1 |
339 |
(classify-error (nsublis nil 'a :bad-keyword t)) |
(classify-error (nsublis nil 'a :bad-keyword t)) |
340 |
program-error) |
program-error) |
341 |
|
|
342 |
|
(deftest nsublis.error.5 |
343 |
|
(classify-error (nsublis '((a . 1) (b . 2)) |
344 |
|
(list 'a 'b 'c 'd) |
345 |
|
:test #'identity)) |
346 |
|
program-error) |
347 |
|
|
348 |
|
(deftest nsublis.error.6 |
349 |
|
(classify-error (nsublis '((a . 1) (b . 2)) |
350 |
|
(list 'a 'b 'c 'd) |
351 |
|
:key #'cons)) |
352 |
|
program-error) |
353 |
|
|
354 |
|
(deftest nsublis.error.7 |
355 |
|
(classify-error (nsublis '((a . 1) (b . 2)) |
356 |
|
(list 'a 'b 'c 'd) |
357 |
|
:test-not #'identity)) |
358 |
|
program-error) |
359 |
|
|
360 |
|
;;;;;; |
361 |
|
|
362 |
(deftest sublis.shared |
(deftest sublis.shared |
363 |
(let* ((shared-piece (list 'a 'b)) |
(let* ((shared-piece (list 'a 'b)) |
928 |
(classify-error (subst 'a 'b nil :bad t :allow-other-keys nil)) |
(classify-error (subst 'a 'b nil :bad t :allow-other-keys nil)) |
929 |
program-error) |
program-error) |
930 |
|
|
931 |
|
(deftest subst.error.8 |
932 |
|
(classify-error (subst 'a 'b (list 'a 'b) :test #'identity)) |
933 |
|
program-error) |
934 |
|
|
935 |
|
(deftest subst.error.9 |
936 |
|
(classify-error (subst 'a 'b (list 'a 'b) :test-not #'identity)) |
937 |
|
program-error) |
938 |
|
|
939 |
|
(deftest subst.error.10 |
940 |
|
(classify-error (subst 'a 'b (list 'a 'b) :key #'equal)) |
941 |
|
program-error) |
942 |
|
|
943 |
;;; nsubst |
;;; nsubst |
944 |
(deftest nsubst.error.1 |
(deftest nsubst.error.1 |
945 |
(classify-error (nsubst)) |
(classify-error (nsubst)) |
969 |
(classify-error (nsubst 'a 'b nil :bad t :allow-other-keys nil)) |
(classify-error (nsubst 'a 'b nil :bad t :allow-other-keys nil)) |
970 |
program-error) |
program-error) |
971 |
|
|
972 |
|
(deftest nsubst.error.8 |
973 |
|
(classify-error (nsubst 'a 'b (list 'a 'b) :test #'identity)) |
974 |
|
program-error) |
975 |
|
|
976 |
|
(deftest nsubst.error.9 |
977 |
|
(classify-error (nsubst 'a 'b (list 'a 'b) :test-not #'identity)) |
978 |
|
program-error) |
979 |
|
|
980 |
|
(deftest nsubst.error.10 |
981 |
|
(classify-error (nsubst 'a 'b (list 'a 'b) :key #'equal)) |
982 |
|
program-error) |
983 |
|
|
984 |
;;; subst-if |
;;; subst-if |
985 |
(deftest subst-if.error.1 |
(deftest subst-if.error.1 |
986 |
(classify-error (subst-if)) |
(classify-error (subst-if)) |
1010 |
(classify-error (subst-if 'a #'null nil :bad t :allow-other-keys nil)) |
(classify-error (subst-if 'a #'null nil :bad t :allow-other-keys nil)) |
1011 |
program-error) |
program-error) |
1012 |
|
|
1013 |
|
(deftest subst-if.error.8 |
1014 |
|
(classify-error (subst-if 'a #'null (list 'a nil 'c) :key #'cons)) |
1015 |
|
program-error) |
1016 |
|
|
1017 |
;;; subst-if-not |
;;; subst-if-not |
1018 |
(deftest subst-if-not.error.1 |
(deftest subst-if-not.error.1 |
1019 |
(classify-error (subst-if-not)) |
(classify-error (subst-if-not)) |
1044 |
:bad t :allow-other-keys nil)) |
:bad t :allow-other-keys nil)) |
1045 |
program-error) |
program-error) |
1046 |
|
|
1047 |
|
(deftest subst-if-not.error.8 |
1048 |
|
(classify-error (subst-if-not 'a #'null (list 'a nil 'c) :key #'cons)) |
1049 |
|
program-error) |
1050 |
|
|
1051 |
;;; nsubst-if |
;;; nsubst-if |
1052 |
(deftest nsubst-if.error.1 |
(deftest nsubst-if.error.1 |
1053 |
(classify-error (nsubst-if)) |
(classify-error (nsubst-if)) |
1077 |
(classify-error (nsubst-if 'a #'null nil :bad t :allow-other-keys nil)) |
(classify-error (nsubst-if 'a #'null nil :bad t :allow-other-keys nil)) |
1078 |
program-error) |
program-error) |
1079 |
|
|
1080 |
|
(deftest nsubst-if.error.8 |
1081 |
|
(classify-error (nsubst-if 'a #'null (list 'a nil 'c) :key #'cons)) |
1082 |
|
program-error) |
1083 |
|
|
1084 |
|
|
1085 |
;;; nsubst-if-not |
;;; nsubst-if-not |
1086 |
(deftest nsubst-if-not.error.1 |
(deftest nsubst-if-not.error.1 |
1111 |
(classify-error (nsubst-if-not 'a #'null nil |
(classify-error (nsubst-if-not 'a #'null nil |
1112 |
:bad t :allow-other-keys nil)) |
:bad t :allow-other-keys nil)) |
1113 |
program-error) |
program-error) |
1114 |
|
|
1115 |
|
(deftest nsubst-if-not.error.8 |
1116 |
|
(classify-error (nsubst-if-not 'a #'null (list 'a nil 'c) :key #'cons)) |
1117 |
|
program-error) |
1118 |
|
|