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 |
|
(deftest mistmatch-string.25 |
601 |
|
(let ((s0 "12345") |
602 |
|
(s1 "123A") |
603 |
|
(s2 "245")) |
604 |
|
(do-special-strings |
605 |
|
(s s0 nil) |
606 |
|
(assert (null (mismatch s s0))) |
607 |
|
(assert (null (mismatch s0 s))) |
608 |
|
(assert (null (mismatch s s0 :from-end t))) |
609 |
|
(assert (null (mismatch s0 s :from-end t))) |
610 |
|
(assert (eql (mismatch s s1) 3)) |
611 |
|
(assert (eql (mismatch s1 s) 3)) |
612 |
|
)) |
613 |
|
nil) |
614 |
|
|
615 |
;;; test and test-not tests |
;;; test and test-not tests |
616 |
|
|
617 |
(defharmless mismatch.test-and-test-not.1 |
(defharmless mismatch.test-and-test-not.1 |