597 |
(mismatch m a :from-end t))) |
(mismatch m a :from-end t))) |
598 |
(4 4 5 nil nil 6 5 6)) |
(4 4 5 nil nil 6 5 6)) |
599 |
|
|
600 |
|
;;; test and test-not tests |
601 |
|
|
602 |
|
(defharmless mismatch.test-and-test-not.1 |
603 |
|
(mismatch '(1 2 3) '(1 2 4) :test #'eql :test-not #'eql)) |
604 |
|
|
605 |
|
(defharmless mismatch.test-and-test-not.2 |
606 |
|
(mismatch '(1 2 3) '(1 2 4) :test-not #'eql :test #'eql)) |
607 |
|
|
608 |
|
(defharmless mismatch.test-and-test-not.3 |
609 |
|
(mismatch #(1 2 3) #(1 2 4) :test #'eql :test-not #'eql)) |
610 |
|
|
611 |
|
(defharmless mismatch.test-and-test-not.4 |
612 |
|
(mismatch #(1 2 3) #(1 2 4) :test-not #'eql :test #'eql)) |
613 |
|
|
614 |
|
(defharmless mismatch.test-and-test-not.5 |
615 |
|
(mismatch "abc" "abd" :test #'eql :test-not #'eql)) |
616 |
|
|
617 |
|
(defharmless mismatch.test-and-test-not.6 |
618 |
|
(mismatch "abc" "abd" :test-not #'eql :test #'eql)) |
619 |
|
|
620 |
|
(defharmless mismatch.test-and-test-not.7 |
621 |
|
(mismatch #*011 #*010 :test #'eql :test-not #'eql)) |
622 |
|
|
623 |
|
(defharmless mismatch.test-and-test-not.8 |
624 |
|
(mismatch #*011 #*010 :test-not #'eql :test #'eql)) |
625 |
|
|
626 |
;;; Keyword tests |
;;; Keyword tests |
627 |
|
|
628 |
(deftest mismatch.allow-other-keys.1 |
(deftest mismatch.allow-other-keys.1 |