295 |
(classify-error (rassoc 'a '((b . a)(c . d)) :key #'cons)) |
(classify-error (rassoc 'a '((b . a)(c . d)) :key #'cons)) |
296 |
program-error) |
program-error) |
297 |
|
|
298 |
|
(deftest rassoc.error.10 |
299 |
|
(classify-error (rassoc 'z '((a . b) . c))) |
300 |
|
type-error) |
301 |
|
|
302 |
|
|
303 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
304 |
;;; rassoc-if |
;;; rassoc-if |
429 |
(classify-error (rassoc-if #'identity '((a . b)(c . d)) :key #'car)) |
(classify-error (rassoc-if #'identity '((a . b)(c . d)) :key #'car)) |
430 |
type-error) |
type-error) |
431 |
|
|
432 |
|
(deftest rassoc-if.error.11 |
433 |
|
(classify-error (rassoc-if #'not '((a . b) . c))) |
434 |
|
type-error) |
435 |
|
|
436 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
437 |
;;; rassoc-if-not |
;;; rassoc-if-not |
438 |
|
|
565 |
(deftest rassoc-if-not.error.10 |
(deftest rassoc-if-not.error.10 |
566 |
(classify-error (rassoc-if-not #'identity '((a . b)(c . d)) :key #'car)) |
(classify-error (rassoc-if-not #'identity '((a . b)(c . d)) :key #'car)) |
567 |
type-error) |
type-error) |
568 |
|
|
569 |
|
(deftest rassoc-if-not.error.11 |
570 |
|
(classify-error (rassoc-if-not #'identity '((a . b) . c))) |
571 |
|
type-error) |