54 |
2) |
2) |
55 |
|
|
56 |
(deftest mismatch-list.13 |
(deftest mismatch-list.13 |
57 |
(mismatch '(1 2 3 4) '(1 2 3 4) :test 'eq) |
(mismatch '(1 2 3 4) '(1 2 3 4) :test 'eql) |
58 |
nil) |
nil) |
59 |
|
|
60 |
(deftest mismatch-list.14 |
(deftest mismatch-list.14 |
61 |
(mismatch '(1 2 3 4) '(5 6 7 8) :test-not 'eq) |
(mismatch '(1 2 3 4) '(5 6 7 8) :test-not 'eql) |
62 |
nil) |
nil) |
63 |
|
|
64 |
(deftest mismatch-list.15 |
(deftest mismatch-list.15 |
78 |
7) |
7) |
79 |
|
|
80 |
(deftest mismatch-list.19 |
(deftest mismatch-list.19 |
81 |
(mismatch '(1 1 1) '(2 2 2 2 2 1 2 2) :from-end t :test-not 'eq) |
(mismatch '(1 1 1) '(2 2 2 2 2 1 2 2) :from-end t :test-not 'eql) |
82 |
1) |
1) |
83 |
|
|
84 |
(deftest mismatch-list.20 |
(deftest mismatch-list.20 |
144 |
2) |
2) |
145 |
|
|
146 |
(deftest mismatch-vector.13 |
(deftest mismatch-vector.13 |
147 |
(mismatch #(1 2 3 4) #(1 2 3 4) :test 'eq) |
(mismatch #(1 2 3 4) #(1 2 3 4) :test 'eql) |
148 |
nil) |
nil) |
149 |
|
|
150 |
(deftest mismatch-vector.14 |
(deftest mismatch-vector.14 |
151 |
(mismatch #(1 2 3 4) #(5 6 7 8) :test-not 'eq) |
(mismatch #(1 2 3 4) #(5 6 7 8) :test-not 'eql) |
152 |
nil) |
nil) |
153 |
|
|
154 |
(deftest mismatch-vector.15 |
(deftest mismatch-vector.15 |
168 |
7) |
7) |
169 |
|
|
170 |
(deftest mismatch-vector.19 |
(deftest mismatch-vector.19 |
171 |
(mismatch #(1 1 1) #(2 2 2 2 2 1 2 2) :from-end t :test-not 'eq) |
(mismatch #(1 1 1) #(2 2 2 2 2 1 2 2) :from-end t :test-not 'eql) |
172 |
1) |
1) |
173 |
|
|
174 |
(deftest mismatch-vector.20 |
(deftest mismatch-vector.20 |
301 |
nil) |
nil) |
302 |
|
|
303 |
(deftest mismatch-bit-vector.11b |
(deftest mismatch-bit-vector.11b |
304 |
(mismatch #*0101 #*1010 :key #'evenp :test-not 'eq) |
(mismatch #*0101 #*1010 :key #'evenp :test-not 'eql) |
305 |
nil) |
nil) |
306 |
|
|
307 |
(deftest mismatch-bit-vector.11c |
(deftest mismatch-bit-vector.11c |
325 |
2) |
2) |
326 |
|
|
327 |
(deftest mismatch-bit-vector.13 |
(deftest mismatch-bit-vector.13 |
328 |
(mismatch #*0001 #*0001 :test 'eq) |
(mismatch #*0001 #*0001 :test 'eql) |
329 |
nil) |
nil) |
330 |
|
|
331 |
(deftest mismatch-bit-vector.14 |
(deftest mismatch-bit-vector.14 |
332 |
(mismatch '#*10001 #*01110 :test-not 'eq) |
(mismatch '#*10001 #*01110 :test-not 'eql) |
333 |
nil) |
nil) |
334 |
|
|
335 |
(deftest mismatch-bit-vector.15 |
(deftest mismatch-bit-vector.15 |
349 |
7) |
7) |
350 |
|
|
351 |
(deftest mismatch-bit-vector.19 |
(deftest mismatch-bit-vector.19 |
352 |
(mismatch #*000 #*11111011 :from-end t :test-not 'eq) |
(mismatch #*000 #*11111011 :from-end t :test-not 'eql) |
353 |
1) |
1) |
354 |
|
|
355 |
(deftest mismatch-bit-vector.20 |
(deftest mismatch-bit-vector.20 |
497 |
nil) |
nil) |
498 |
|
|
499 |
(deftest mismatch-string.11b |
(deftest mismatch-string.11b |
500 |
(mismatch "0101" "1010" :key #'evendigitp :test-not 'eq) |
(mismatch "0101" "1010" :key #'evendigitp :test-not 'eql) |
501 |
nil) |
nil) |
502 |
|
|
503 |
(deftest mismatch-string.11c |
(deftest mismatch-string.11c |
509 |
4) |
4) |
510 |
|
|
511 |
(deftest mismatch-string.11e |
(deftest mismatch-string.11e |
512 |
(mismatch "0101" '(#\1 #\0 #\1 #\0) :key #'evendigitp :test-not 'eq) |
(mismatch "0101" '(#\1 #\0 #\1 #\0) :key #'evendigitp :test-not 'eql) |
513 |
nil) |
nil) |
514 |
|
|
515 |
(deftest mismatch-string.12 |
(deftest mismatch-string.12 |
525 |
2) |
2) |
526 |
|
|
527 |
(deftest mismatch-string.13 |
(deftest mismatch-string.13 |
528 |
(mismatch "0001" "0001" :test 'eq) |
(mismatch "0001" "0001" :test 'eql) |
529 |
nil) |
nil) |
530 |
|
|
531 |
(deftest mismatch-string.14 |
(deftest mismatch-string.14 |
532 |
(mismatch "10001" "01110" :test-not 'eq) |
(mismatch "10001" "01110" :test-not 'eql) |
533 |
nil) |
nil) |
534 |
|
|
535 |
(deftest mismatch-string.15 |
(deftest mismatch-string.15 |
549 |
7) |
7) |
550 |
|
|
551 |
(deftest mismatch-string.19 |
(deftest mismatch-string.19 |
552 |
(mismatch "000" "11111011" :from-end t :test-not 'eq) |
(mismatch "000" "11111011" :from-end t :test-not 'eql) |
553 |
1) |
1) |
554 |
|
|
555 |
(deftest mismatch-string.20 |
(deftest mismatch-string.20 |