310 |
(classify-error (assoc 'a '((a . b)) :key #'cons)) |
(classify-error (assoc 'a '((a . b)) :key #'cons)) |
311 |
program-error) |
program-error) |
312 |
|
|
313 |
|
(deftest assoc.error.10 |
314 |
|
(classify-error (assoc 'z '((a . b) . c))) |
315 |
|
type-error) |
316 |
|
|
317 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
318 |
;;; assoc-if |
;;; assoc-if |
319 |
|
|
446 |
(classify-error (assoc-if #'identity '((a b)(c d)) :key #'car)) |
(classify-error (assoc-if #'identity '((a b)(c d)) :key #'car)) |
447 |
type-error) |
type-error) |
448 |
|
|
449 |
|
(deftest assoc-if.error.11 |
450 |
|
(classify-error (assoc-if #'null '((a . b) . c))) |
451 |
|
type-error) |
452 |
|
|
453 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
454 |
;;; assoc-if-not |
;;; assoc-if-not |
584 |
(classify-error (assoc-if-not #'identity '((a b)(c d)) :key #'car)) |
(classify-error (assoc-if-not #'identity '((a b)(c d)) :key #'car)) |
585 |
type-error) |
type-error) |
586 |
|
|
587 |
|
(deftest assoc-if-not.error.11 |
588 |
|
(classify-error (assoc-if-not #'identity '((a . b) . c))) |
589 |
|
type-error) |
590 |
|
|
591 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
592 |
;;; copy-alist |
;;; copy-alist |
593 |
|
|
617 |
(classify-error (copy-alist nil nil)) |
(classify-error (copy-alist nil nil)) |
618 |
program-error) |
program-error) |
619 |
|
|
620 |
|
(deftest copy-alist.error.3 |
621 |
|
(classify-error (copy-alist '((a . b) . c))) |
622 |
|
type-error) |
623 |
|
|
624 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
625 |
;;; pairlis |
;;; pairlis |
626 |
|
|
691 |
(deftest pairlis.error.3 |
(deftest pairlis.error.3 |
692 |
(classify-error (pairlis nil nil nil nil)) |
(classify-error (pairlis nil nil nil nil)) |
693 |
program-error) |
program-error) |
694 |
|
|
695 |
|
(deftest pairlist.error.4 |
696 |
|
(classify-error (pairlis 'a '(1) '(a b c))) |
697 |
|
type-error) |
698 |
|
|
699 |
|
(deftest pairlist.error.5 |
700 |
|
(classify-error (pairlis '(a) 'b '(a b c))) |
701 |
|
type-error) |