191 |
(eqt x y)))) |
(eqt x y)))) |
192 |
(3 . A)) |
(3 . A)) |
193 |
|
|
194 |
|
(deftest rassoc-26 |
195 |
|
(rassoc 'b '((1 . a) (2 . b) (3 . c)) :bad t :allow-other-keys t) |
196 |
|
(2 . b)) |
197 |
|
|
198 |
|
(deftest rassoc-27 |
199 |
|
(rassoc 'b '((1 . a) (2 . b) (3 . c)) :allow-other-keys t :bad t) |
200 |
|
(2 . b)) |
201 |
|
|
202 |
|
(deftest rassoc-28 |
203 |
|
(rassoc 'a '((1 . a) (2 . b) (3 . c)) :allow-other-keys t :bad t |
204 |
|
:test-not #'eql) |
205 |
|
(2 . b)) |
206 |
|
|
207 |
(deftest rassoc.error.1 |
(deftest rassoc.error.1 |
208 |
(classify-error (rassoc)) |
(classify-error (rassoc)) |
209 |
program-error) |
program-error) |
267 |
(rev-assoc-list '((a . b) nil (c . d) (nil . e) (f . g)))) |
(rev-assoc-list '((a . b) nil (c . d) (nil . e) (f . g)))) |
268 |
(e)) |
(e)) |
269 |
|
|
270 |
|
(deftest rassoc-if-26 |
271 |
|
(rassoc-if #'null '((1 . a) (2) (3 . c)) :bad t :allow-other-keys t) |
272 |
|
(2)) |
273 |
|
|
274 |
|
(deftest rassoc-if-27 |
275 |
|
(rassoc-if #'null '((1 . a) (2) (3 . c)) :allow-other-keys t :bad t) |
276 |
|
(2)) |
277 |
|
|
278 |
|
(deftest rassoc-if-28 |
279 |
|
(rassoc-if #'identity '((1 . a) (2) (3 . c)) :allow-other-keys t :bad t |
280 |
|
:key 'not) |
281 |
|
(2)) |
282 |
|
|
283 |
(deftest rassoc-if.error.1 |
(deftest rassoc-if.error.1 |
284 |
(classify-error (rassoc-if)) |
(classify-error (rassoc-if)) |
285 |
program-error) |
program-error) |
342 |
(rev-assoc-list '((a . b) nil (c . d) (nil . e) (f . g)))) |
(rev-assoc-list '((a . b) nil (c . d) (nil . e) (f . g)))) |
343 |
(e)) |
(e)) |
344 |
|
|
345 |
|
(deftest rassoc-if-not-26 |
346 |
|
(rassoc-if-not #'identity '((1 . a) (2) (3 . c)) :bad t :allow-other-keys t) |
347 |
|
(2)) |
348 |
|
|
349 |
|
(deftest rassoc-if-not-27 |
350 |
|
(rassoc-if-not #'values '((1 . a) (2) (3 . c)) :allow-other-keys t :bad t) |
351 |
|
(2)) |
352 |
|
|
353 |
|
(deftest rassoc-if-not-28 |
354 |
|
(rassoc-if-not #'not '((1 . a) (2) (3 . c)) :allow-other-keys t :bad t |
355 |
|
:key 'not) |
356 |
|
(2)) |
357 |
|
|
358 |
(deftest rassoc-if-not.error.1 |
(deftest rassoc-if-not.error.1 |
359 |
(classify-error (rassoc-if-not)) |
(classify-error (rassoc-if-not)) |
360 |
program-error) |
program-error) |