191 |
(eqt x y)))) |
(eqt x y)))) |
192 |
(3 . A)) |
(3 . A)) |
193 |
|
|
194 |
|
(deftest rassoc.error.1 |
195 |
|
(classify-error (rassoc)) |
196 |
|
program-error) |
197 |
|
|
198 |
|
(deftest rassoc.error.2 |
199 |
|
(classify-error (rassoc nil)) |
200 |
|
program-error) |
201 |
|
|
202 |
|
(deftest rassoc.error.3 |
203 |
|
(classify-error (rassoc nil nil :bad t)) |
204 |
|
program-error) |
205 |
|
|
206 |
|
(deftest rassoc.error.4 |
207 |
|
(classify-error (rassoc nil nil :key)) |
208 |
|
program-error) |
209 |
|
|
210 |
|
(deftest rassoc.error.5 |
211 |
|
(classify-error (rassoc nil nil 1 1)) |
212 |
|
program-error) |
213 |
|
|
214 |
|
(deftest rassoc.error.6 |
215 |
|
(classify-error (rassoc nil nil :bad t :allow-other-keys nil)) |
216 |
|
program-error) |
217 |
|
|
218 |
|
|
219 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
220 |
;;; rassoc-if |
;;; rassoc-if |
221 |
|
|
254 |
(rev-assoc-list '((a . b) nil (c . d) (nil . e) (f . g)))) |
(rev-assoc-list '((a . b) nil (c . d) (nil . e) (f . g)))) |
255 |
(e)) |
(e)) |
256 |
|
|
257 |
|
(deftest rassoc-if.error.1 |
258 |
|
(classify-error (rassoc-if)) |
259 |
|
program-error) |
260 |
|
|
261 |
|
(deftest rassoc-if.error.2 |
262 |
|
(classify-error (rassoc-if #'null)) |
263 |
|
program-error) |
264 |
|
|
265 |
|
(deftest rassoc-if.error.3 |
266 |
|
(classify-error (rassoc-if #'null nil :bad t)) |
267 |
|
program-error) |
268 |
|
|
269 |
|
(deftest rassoc-if.error.4 |
270 |
|
(classify-error (rassoc-if #'null nil :key)) |
271 |
|
program-error) |
272 |
|
|
273 |
|
(deftest rassoc-if.error.5 |
274 |
|
(classify-error (rassoc-if #'null nil 1 1)) |
275 |
|
program-error) |
276 |
|
|
277 |
|
(deftest rassoc-if.error.6 |
278 |
|
(classify-error (rassoc-if #'null nil :bad t :allow-other-keys nil)) |
279 |
|
program-error) |
280 |
|
|
281 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
282 |
;;; rassoc-if-not |
;;; rassoc-if-not |
283 |
|
|
316 |
(rev-assoc-list '((a . b) nil (c . d) (nil . e) (f . g)))) |
(rev-assoc-list '((a . b) nil (c . d) (nil . e) (f . g)))) |
317 |
(e)) |
(e)) |
318 |
|
|
319 |
|
(deftest rassoc-if-not.error.1 |
320 |
|
(classify-error (rassoc-if-not)) |
321 |
|
program-error) |
322 |
|
|
323 |
|
(deftest rassoc-if-not.error.2 |
324 |
|
(classify-error (rassoc-if-not #'null)) |
325 |
|
program-error) |
326 |
|
|
327 |
|
(deftest rassoc-if-not.error.3 |
328 |
|
(classify-error (rassoc-if-not #'null nil :bad t)) |
329 |
|
program-error) |
330 |
|
|
331 |
|
(deftest rassoc-if-not.error.4 |
332 |
|
(classify-error (rassoc-if-not #'null nil :key)) |
333 |
|
program-error) |
334 |
|
|
335 |
|
(deftest rassoc-if-not.error.5 |
336 |
|
(classify-error (rassoc-if-not #'null nil 1 1)) |
337 |
|
program-error) |
338 |
|
|
339 |
|
(deftest rassoc-if-not.error.6 |
340 |
|
(classify-error (rassoc-if-not #'null nil :bad t :allow-other-keys nil)) |
341 |
|
program-error) |