82 |
4) |
4) |
83 |
|
|
84 |
(deftest find-list.14 |
(deftest find-list.14 |
85 |
(find 'a '(a a b a c e d a f a) :test (complement #'eq)) |
(find 'a '(a a b a c e d a f a) :test (complement #'eql)) |
86 |
b) |
b) |
87 |
|
|
88 |
(deftest find-list.15 |
(deftest find-list.15 |
89 |
(find 'a '(a a b a c e d a f a) :test (complement #'eq) |
(find 'a '(a a b a c e d a f a) :test (complement #'eql) |
90 |
:from-end t) |
:from-end t) |
91 |
f) |
f) |
92 |
|
|
93 |
(deftest find-list.16 |
(deftest find-list.16 |
94 |
(find 'a '(a a b a c e d a f a) :test-not #'eq) |
(find 'a '(a a b a c e d a f a) :test-not #'eql) |
95 |
b) |
b) |
96 |
|
|
97 |
(deftest find-list.17 |
(deftest find-list.17 |
98 |
(find 'a '(a a b a c e d a f a) :test-not 'eq |
(find 'a '(a a b a c e d a f a) :test-not 'eql |
99 |
:from-end t) |
:from-end t) |
100 |
f) |
f) |
101 |
|
|
102 |
(deftest find-list.18 |
(deftest find-list.18 |
103 |
(find 'a '(a a b a c e d a f a) :test-not 'eq) |
(find 'a '(a a b a c e d a f a) :test-not 'eql) |
104 |
b) |
b) |
105 |
|
|
106 |
(deftest find-list.19 |
(deftest find-list.19 |
107 |
(find 'a '(a a b a c e d a f a) :test-not #'eq |
(find 'a '(a a b a c e d a f a) :test-not #'eql |
108 |
:from-end t) |
:from-end t) |
109 |
f) |
f) |
110 |
|
|
111 |
(deftest find-list.20 |
(deftest find-list.20 |
112 |
(find 'a '(a a b a c e d a f a) :test-not #'eq) |
(find 'a '(a a b a c e d a f a) :test-not #'eql) |
113 |
b) |
b) |
114 |
|
|
115 |
(deftest find-list.21 |
(deftest find-list.21 |
116 |
(find 'a '(a a b a c e d a f a) :test #'eq |
(find 'a '(a a b a c e d a f a) :test #'eql |
117 |
:start 2) |
:start 2) |
118 |
a) |
a) |
119 |
|
|
120 |
(deftest find-list.22 |
(deftest find-list.22 |
121 |
(find 'a '(a a b a c e d a f a) :test #'eq |
(find 'a '(a a b a c e d a f a) :test #'eql |
122 |
:start 2 :end nil) |
:start 2 :end nil) |
123 |
a) |
a) |
124 |
|
|
125 |
(deftest find-list.23 |
(deftest find-list.23 |
126 |
(find 'a '(a a b a c e d a f a) :test-not #'eq |
(find 'a '(a a b a c e d a f a) :test-not #'eql |
127 |
:start 0 :end 5) |
:start 0 :end 5) |
128 |
b) |
b) |
129 |
|
|
130 |
(deftest find-list.24 |
(deftest find-list.24 |
131 |
(find 'a '(a a b a c e d a f a) :test-not #'eq |
(find 'a '(a a b a c e d a f a) :test-not #'eql |
132 |
:start 0 :end 5 :from-end t) |
:start 0 :end 5 :from-end t) |
133 |
c) |
c) |
134 |
|
|
237 |
4) |
4) |
238 |
|
|
239 |
(deftest find-vector.14 |
(deftest find-vector.14 |
240 |
(find 'a #(a a b a c e d a f a) :test (complement #'eq)) |
(find 'a #(a a b a c e d a f a) :test (complement #'eql)) |
241 |
b) |
b) |
242 |
|
|
243 |
(deftest find-vector.15 |
(deftest find-vector.15 |
244 |
(find 'a #(a a b a c e d a f a) :test (complement #'eq) |
(find 'a #(a a b a c e d a f a) :test (complement #'eql) |
245 |
:from-end t) |
:from-end t) |
246 |
f) |
f) |
247 |
|
|
248 |
(deftest find-vector.16 |
(deftest find-vector.16 |
249 |
(find 'a #(a a b a c e d a f a) :test-not #'eq) |
(find 'a #(a a b a c e d a f a) :test-not #'eql) |
250 |
b) |
b) |
251 |
|
|
252 |
(deftest find-vector.17 |
(deftest find-vector.17 |
253 |
(find 'a #(a a b a c e d a f a) :test-not 'eq |
(find 'a #(a a b a c e d a f a) :test-not 'eql |
254 |
:from-end t) |
:from-end t) |
255 |
f) |
f) |
256 |
|
|
257 |
(deftest find-vector.18 |
(deftest find-vector.18 |
258 |
(find 'a #(a a b a c e d a f a) :test-not 'eq) |
(find 'a #(a a b a c e d a f a) :test-not 'eql) |
259 |
b) |
b) |
260 |
|
|
261 |
(deftest find-vector.19 |
(deftest find-vector.19 |
262 |
(find 'a #(a a b a c e d a f a) :test-not #'eq |
(find 'a #(a a b a c e d a f a) :test-not #'eql |
263 |
:from-end t) |
:from-end t) |
264 |
f) |
f) |
265 |
|
|
266 |
(deftest find-vector.20 |
(deftest find-vector.20 |
267 |
(find 'a #(a a b a c e d a f a) :test-not #'eq) |
(find 'a #(a a b a c e d a f a) :test-not #'eql) |
268 |
b) |
b) |
269 |
|
|
270 |
(deftest find-vector.21 |
(deftest find-vector.21 |
271 |
(find 'a #(a a b a c e d a f a) :test #'eq |
(find 'a #(a a b a c e d a f a) :test #'eql |
272 |
:start 2) |
:start 2) |
273 |
a) |
a) |
274 |
|
|
275 |
(deftest find-vector.22 |
(deftest find-vector.22 |
276 |
(find 'a #(a a b a c e d a f a) :test #'eq |
(find 'a #(a a b a c e d a f a) :test #'eql |
277 |
:start 2 :end nil) |
:start 2 :end nil) |
278 |
a) |
a) |
279 |
|
|
280 |
(deftest find-vector.23 |
(deftest find-vector.23 |
281 |
(find 'a #(a a b a c e d a f a) :test-not #'eq |
(find 'a #(a a b a c e d a f a) :test-not #'eql |
282 |
:start 0 :end 5) |
:start 0 :end 5) |
283 |
b) |
b) |
284 |
|
|
285 |
(deftest find-vector.24 |
(deftest find-vector.24 |
286 |
(find 'a #(a a b a c e d a f a) :test-not #'eq |
(find 'a #(a a b a c e d a f a) :test-not #'eql |
287 |
:start 0 :end 5 :from-end t) |
:start 0 :end 5 :from-end t) |
288 |
c) |
c) |
289 |
|
|
435 |
1) |
1) |
436 |
|
|
437 |
(deftest find-bit-vector.14 |
(deftest find-bit-vector.14 |
438 |
(find 0 #*0010111010 :test (complement #'eq)) |
(find 0 #*0010111010 :test (complement #'eql)) |
439 |
1) |
1) |
440 |
|
|
441 |
(deftest find-bit-vector.15 |
(deftest find-bit-vector.15 |
442 |
(find 0 #*0010111010 :test (complement #'eq) |
(find 0 #*0010111010 :test (complement #'eql) |
443 |
:from-end t) |
:from-end t) |
444 |
1) |
1) |
445 |
|
|
446 |
(deftest find-bit-vector.16 |
(deftest find-bit-vector.16 |
447 |
(find 0 #*0010111010 :test-not #'eq) |
(find 0 #*0010111010 :test-not #'eql) |
448 |
1) |
1) |
449 |
|
|
450 |
(deftest find-bit-vector.16a |
(deftest find-bit-vector.16a |
451 |
(find 1 #*111111111111 :test-not #'eq) |
(find 1 #*111111111111 :test-not #'eql) |
452 |
nil) |
nil) |
453 |
|
|
454 |
(deftest find-bit-vector.16b |
(deftest find-bit-vector.16b |
455 |
(find 0 #*0000000 :test-not #'eq) |
(find 0 #*0000000 :test-not #'eql) |
456 |
nil) |
nil) |
457 |
|
|
458 |
(deftest find-bit-vector.17 |
(deftest find-bit-vector.17 |
459 |
(find 0 #*001011101 :test-not 'eq |
(find 0 #*001011101 :test-not 'eql |
460 |
:from-end t) |
:from-end t) |
461 |
1) |
1) |
462 |
|
|
463 |
(deftest find-bit-vector.17a |
(deftest find-bit-vector.17a |
464 |
(find 0 #*0000000 :test-not 'eq |
(find 0 #*0000000 :test-not 'eql |
465 |
:from-end t) |
:from-end t) |
466 |
nil) |
nil) |
467 |
|
|
468 |
(deftest find-bit-vector.17b |
(deftest find-bit-vector.17b |
469 |
(find 1 #*111111111111 :test-not 'eq |
(find 1 #*111111111111 :test-not 'eql |
470 |
:from-end t) |
:from-end t) |
471 |
nil) |
nil) |
472 |
|
|
473 |
(deftest find-bit-vector.18 |
(deftest find-bit-vector.18 |
474 |
(find 0 #*00101110 :test-not 'eq) |
(find 0 #*00101110 :test-not 'eql) |
475 |
1) |
1) |
476 |
|
|
477 |
(deftest find-bit-vector.18a |
(deftest find-bit-vector.18a |
478 |
(find 0 #*00000000 :test-not 'eq) |
(find 0 #*00000000 :test-not 'eql) |
479 |
nil) |
nil) |
480 |
|
|
481 |
(deftest find-bit-vector.19 |
(deftest find-bit-vector.19 |
482 |
(find 0 #*00101110 :test-not #'eq |
(find 0 #*00101110 :test-not #'eql |
483 |
:from-end t) |
:from-end t) |
484 |
1) |
1) |
485 |
|
|
486 |
(deftest find-bit-vector.19a |
(deftest find-bit-vector.19a |
487 |
(find 0 #*00000000 :test-not #'eq |
(find 0 #*00000000 :test-not #'eql |
488 |
:from-end t) |
:from-end t) |
489 |
nil) |
nil) |
490 |
|
|
491 |
(deftest find-bit-vector.20 |
(deftest find-bit-vector.20 |
492 |
(find 0 #*00101110 :test-not #'eq) |
(find 0 #*00101110 :test-not #'eql) |
493 |
1) |
1) |
494 |
|
|
495 |
(deftest find-bit-vector.21 |
(deftest find-bit-vector.21 |
496 |
(find 0 #*00101110 :test #'eq |
(find 0 #*00101110 :test #'eql |
497 |
:start 2) |
:start 2) |
498 |
0) |
0) |
499 |
|
|
500 |
(deftest find-bit-vector.21a |
(deftest find-bit-vector.21a |
501 |
(find 0 #*00111111 :test #'eq |
(find 0 #*00111111 :test #'eql |
502 |
:start 2) |
:start 2) |
503 |
nil) |
nil) |
504 |
|
|
505 |
(deftest find-bit-vector.21b |
(deftest find-bit-vector.21b |
506 |
(find 1 #*00111111 :test #'eq |
(find 1 #*00111111 :test #'eql |
507 |
:start 2) |
:start 2) |
508 |
1) |
1) |
509 |
|
|
510 |
(deftest find-bit-vector.22 |
(deftest find-bit-vector.22 |
511 |
(find 0 #*00101110 :test #'eq |
(find 0 #*00101110 :test #'eql |
512 |
:start 2 :end nil) |
:start 2 :end nil) |
513 |
0) |
0) |
514 |
|
|
515 |
(deftest find-bit-vector.22a |
(deftest find-bit-vector.22a |
516 |
(find 0 #*001111111 :test #'eq |
(find 0 #*001111111 :test #'eql |
517 |
:start 2 :end nil) |
:start 2 :end nil) |
518 |
nil) |
nil) |
519 |
|
|
520 |
(deftest find-bit-vector.22b |
(deftest find-bit-vector.22b |
521 |
(find 1 #*001111111 :test #'eq |
(find 1 #*001111111 :test #'eql |
522 |
:start 2 :end nil) |
:start 2 :end nil) |
523 |
1) |
1) |
524 |
|
|
525 |
(deftest find-bit-vector.23 |
(deftest find-bit-vector.23 |
526 |
(find 0 #*00101110 :test-not #'eq |
(find 0 #*00101110 :test-not #'eql |
527 |
:start 0 :end 5) |
:start 0 :end 5) |
528 |
1) |
1) |
529 |
|
|
530 |
(deftest find-bit-vector.23a |
(deftest find-bit-vector.23a |
531 |
(find 0 #*00000111 :test-not #'eq |
(find 0 #*00000111 :test-not #'eql |
532 |
:start 0 :end 5) |
:start 0 :end 5) |
533 |
nil) |
nil) |
534 |
|
|
535 |
(deftest find-bit-vector.23b |
(deftest find-bit-vector.23b |
536 |
(find 0 #*00001000 :test-not #'eq |
(find 0 #*00001000 :test-not #'eql |
537 |
:start 0 :end 5) |
:start 0 :end 5) |
538 |
1) |
1) |
539 |
|
|
540 |
(deftest find-bit-vector.24 |
(deftest find-bit-vector.24 |
541 |
(find 0 #*00101110 :test-not #'eq |
(find 0 #*00101110 :test-not #'eql |
542 |
:start 0 :end 5 :from-end t) |
:start 0 :end 5 :from-end t) |
543 |
1) |
1) |
544 |
|
|
545 |
(deftest find-bit-vector.24a |
(deftest find-bit-vector.24a |
546 |
(find 0 #*0000001111 :test-not #'eq |
(find 0 #*0000001111 :test-not #'eql |
547 |
:start 0 :end 5 :from-end t) |
:start 0 :end 5 :from-end t) |
548 |
nil) |
nil) |
549 |
|
|
550 |
(deftest find-bit-vector.24b |
(deftest find-bit-vector.24b |
551 |
(find 0 #*0000100 :test-not #'eq |
(find 0 #*0000100 :test-not #'eql |
552 |
:start 0 :end 5 :from-end t) |
:start 0 :end 5 :from-end t) |
553 |
1) |
1) |
554 |
|
|
679 |
#\4) |
#\4) |
680 |
|
|
681 |
(deftest find-string.14 |
(deftest find-string.14 |
682 |
(find #\a "aabacedafa" :test (complement #'eq)) |
(find #\a "aabacedafa" :test (complement #'eql)) |
683 |
#\b) |
#\b) |
684 |
|
|
685 |
(deftest find-string.15 |
(deftest find-string.15 |
686 |
(find #\a "aabacedafa" :test (complement #'eq) |
(find #\a "aabacedafa" :test (complement #'eql) |
687 |
:from-end t) |
:from-end t) |
688 |
#\f) |
#\f) |
689 |
|
|
690 |
(deftest find-string.16 |
(deftest find-string.16 |
691 |
(find #\a "aabacedafa" :test-not #'eq) |
(find #\a "aabacedafa" :test-not #'eql) |
692 |
#\b) |
#\b) |
693 |
|
|
694 |
(deftest find-string.17 |
(deftest find-string.17 |
695 |
(find #\a "aabacedafa" :test-not 'eq |
(find #\a "aabacedafa" :test-not 'eql |
696 |
:from-end t) |
:from-end t) |
697 |
#\f) |
#\f) |
698 |
|
|
699 |
(deftest find-string.18 |
(deftest find-string.18 |
700 |
(find #\a "aabacedafa" :test-not 'eq) |
(find #\a "aabacedafa" :test-not 'eql) |
701 |
#\b) |
#\b) |
702 |
|
|
703 |
(deftest find-string.19 |
(deftest find-string.19 |
704 |
(find #\a "aabacedafa" :test-not #'eq |
(find #\a "aabacedafa" :test-not #'eql |
705 |
:from-end t) |
:from-end t) |
706 |
#\f) |
#\f) |
707 |
|
|
708 |
(deftest find-string.20 |
(deftest find-string.20 |
709 |
(find #\a "aabacedafa" :test-not #'eq) |
(find #\a "aabacedafa" :test-not #'eql) |
710 |
#\b) |
#\b) |
711 |
|
|
712 |
(deftest find-string.21 |
(deftest find-string.21 |