697 |
(deftest mismatch.error.6 |
(deftest mismatch.error.6 |
698 |
(classify-error (mismatch nil nil 1 2)) |
(classify-error (mismatch nil nil 1 2)) |
699 |
program-error) |
program-error) |
700 |
|
|
701 |
|
(deftest mismatch.error.7 |
702 |
|
(classify-error (mismatch '(a b) '(a b) :test #'identity)) |
703 |
|
program-error) |
704 |
|
|
705 |
|
(deftest mismatch.error.8 |
706 |
|
(classify-error (mismatch '(a b) '(a b) :test-not #'identity)) |
707 |
|
program-error) |
708 |
|
|
709 |
|
(deftest mismatch.error.9 |
710 |
|
(classify-error (mismatch '(a b) '(a b) :key #'car)) |
711 |
|
type-error) |
712 |
|
|
713 |
|
(deftest mismatch.error.10 |
714 |
|
(classify-error (mismatch '(a b) '(a b) :key #'cons)) |
715 |
|
program-error) |