283 |
(classify-error (rassoc nil nil :bad t :allow-other-keys nil)) |
(classify-error (rassoc nil nil :bad t :allow-other-keys nil)) |
284 |
program-error) |
program-error) |
285 |
|
|
286 |
|
(deftest rassoc.error.7 |
287 |
|
(classify-error (rassoc 'a '((b . a)(c . d)) :test #'identity)) |
288 |
|
program-error) |
289 |
|
|
290 |
|
(deftest rassoc.error.8 |
291 |
|
(classify-error (rassoc 'a '((b . a)(c . d)) :test-not #'identity)) |
292 |
|
program-error) |
293 |
|
|
294 |
|
(deftest rassoc.error.9 |
295 |
|
(classify-error (rassoc 'a '((b . a)(c . d)) :key #'cons)) |
296 |
|
program-error) |
297 |
|
|
298 |
|
|
299 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
300 |
;;; rassoc-if |
;;; rassoc-if |
409 |
(classify-error (rassoc-if #'null nil :bad t :allow-other-keys nil)) |
(classify-error (rassoc-if #'null nil :bad t :allow-other-keys nil)) |
410 |
program-error) |
program-error) |
411 |
|
|
412 |
|
(deftest rassoc-if.error.7 |
413 |
|
(classify-error (rassoc-if #'cons '((a . b)(c . d)))) |
414 |
|
program-error) |
415 |
|
|
416 |
|
(deftest rassoc-if.error.8 |
417 |
|
(classify-error (rassoc-if #'car '((a . b)(c . d)))) |
418 |
|
type-error) |
419 |
|
|
420 |
|
(deftest rassoc-if.error.9 |
421 |
|
(classify-error (rassoc-if #'identity '((a . b)(c . d)) :key #'cons)) |
422 |
|
program-error) |
423 |
|
|
424 |
|
(deftest rassoc-if.error.10 |
425 |
|
(classify-error (rassoc-if #'identity '((a . b)(c . d)) :key #'car)) |
426 |
|
type-error) |
427 |
|
|
428 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
429 |
;;; rassoc-if-not |
;;; rassoc-if-not |
430 |
|
|
540 |
|
|
541 |
(deftest rassoc-if-not.error.6 |
(deftest rassoc-if-not.error.6 |
542 |
(classify-error (rassoc-if-not #'null nil :bad t :allow-other-keys nil)) |
(classify-error (rassoc-if-not #'null nil :bad t :allow-other-keys nil)) |
|
program-error) |
|
543 |
|
program-error) |
544 |
|
|
545 |
|
(deftest rassoc-if-not.error.7 |
546 |
|
(classify-error (rassoc-if-not #'cons '((a . b)(c . d)))) |
547 |
|
program-error) |
548 |
|
|
549 |
|
(deftest rassoc-if-not.error.8 |
550 |
|
(classify-error (rassoc-if-not #'car '((a . b)(c . d)))) |
551 |
|
type-error) |
552 |
|
|
553 |
|
(deftest rassoc-if-not.error.9 |
554 |
|
(classify-error (rassoc-if-not #'identity '((a . b)(c . d)) :key #'cons)) |
555 |
|
program-error) |
556 |
|
|
557 |
|
(deftest rassoc-if-not.error.10 |
558 |
|
(classify-error (rassoc-if-not #'identity '((a . b)(c . d)) :key #'car)) |
559 |
|
type-error) |