82 |
6) |
6) |
83 |
|
|
84 |
(deftest position-list.14 |
(deftest position-list.14 |
85 |
(position 'a '(a a b a c e d a f a) :test (complement #'eq)) |
(position 'a '(a a b a c e d a f a) :test (complement #'eql)) |
86 |
2) |
2) |
87 |
|
|
88 |
(deftest position-list.15 |
(deftest position-list.15 |
89 |
(position 'a '(a a b a c e d a f a) :test (complement #'eq) |
(position 'a '(a a b a c e d a f a) :test (complement #'eql) |
90 |
:from-end t) |
:from-end t) |
91 |
8) |
8) |
92 |
|
|
93 |
(deftest position-list.16 |
(deftest position-list.16 |
94 |
(position 'a '(a a b a c e d a f a) :test-not #'eq) |
(position 'a '(a a b a c e d a f a) :test-not #'eql) |
95 |
2) |
2) |
96 |
|
|
97 |
(deftest position-list.17 |
(deftest position-list.17 |
98 |
(position 'a '(a a b a c e d a f a) :test-not 'eq |
(position 'a '(a a b a c e d a f a) :test-not 'eql |
99 |
:from-end t) |
:from-end t) |
100 |
8) |
8) |
101 |
|
|
102 |
(deftest position-list.18 |
(deftest position-list.18 |
103 |
(position 'a '(a a b a c e d a f a) :test-not 'eq) |
(position 'a '(a a b a c e d a f a) :test-not 'eql) |
104 |
2) |
2) |
105 |
|
|
106 |
(deftest position-list.19 |
(deftest position-list.19 |
107 |
(position 'a '(a a b a c e d a f a) :test-not #'eq |
(position 'a '(a a b a c e d a f a) :test-not #'eql |
108 |
:from-end t) |
:from-end t) |
109 |
8) |
8) |
110 |
|
|
111 |
(deftest position-list.20 |
(deftest position-list.20 |
112 |
(position 'a '(a a b a c e d a f a) :test-not #'eq) |
(position 'a '(a a b a c e d a f a) :test-not #'eql) |
113 |
2) |
2) |
114 |
|
|
115 |
(deftest position-list.21 |
(deftest position-list.21 |
116 |
(position 'a '(a a b a c e d a f a) :test #'eq |
(position 'a '(a a b a c e d a f a) :test #'eql |
117 |
:start 2) |
:start 2) |
118 |
3) |
3) |
119 |
|
|
120 |
(deftest position-list.22 |
(deftest position-list.22 |
121 |
(position 'a '(a a b a c e d a f a) :test #'eq |
(position 'a '(a a b a c e d a f a) :test #'eql |
122 |
:start 2 :end nil) |
:start 2 :end nil) |
123 |
3) |
3) |
124 |
|
|
125 |
(deftest position-list.23 |
(deftest position-list.23 |
126 |
(position 'a '(a a b a c e d a f a) :test-not #'eq |
(position 'a '(a a b a c e d a f a) :test-not #'eql |
127 |
:start 0 :end 5) |
:start 0 :end 5) |
128 |
2) |
2) |
129 |
|
|
130 |
(deftest position-list.24 |
(deftest position-list.24 |
131 |
(position 'a '(a a b a c e d a f a) :test-not #'eq |
(position '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 |
4) |
4) |
134 |
|
|
229 |
6) |
6) |
230 |
|
|
231 |
(deftest position-vector.14 |
(deftest position-vector.14 |
232 |
(position 'a #(a a b a c e d a f a) :test (complement #'eq)) |
(position 'a #(a a b a c e d a f a) :test (complement #'eql)) |
233 |
2) |
2) |
234 |
|
|
235 |
(deftest position-vector.15 |
(deftest position-vector.15 |
236 |
(position 'a #(a a b a c e d a f a) :test (complement #'eq) |
(position 'a #(a a b a c e d a f a) :test (complement #'eql) |
237 |
:from-end t) |
:from-end t) |
238 |
8) |
8) |
239 |
|
|
240 |
(deftest position-vector.16 |
(deftest position-vector.16 |
241 |
(position 'a #(a a b a c e d a f a) :test-not #'eq) |
(position 'a #(a a b a c e d a f a) :test-not #'eql) |
242 |
2) |
2) |
243 |
|
|
244 |
(deftest position-vector.17 |
(deftest position-vector.17 |
245 |
(position 'a #(a a b a c e d a f a) :test-not 'eq |
(position 'a #(a a b a c e d a f a) :test-not 'eql |
246 |
:from-end t) |
:from-end t) |
247 |
8) |
8) |
248 |
|
|
249 |
(deftest position-vector.18 |
(deftest position-vector.18 |
250 |
(position 'a #(a a b a c e d a f a) :test-not 'eq) |
(position 'a #(a a b a c e d a f a) :test-not 'eql) |
251 |
2) |
2) |
252 |
|
|
253 |
(deftest position-vector.19 |
(deftest position-vector.19 |
254 |
(position 'a #(a a b a c e d a f a) :test-not #'eq |
(position 'a #(a a b a c e d a f a) :test-not #'eql |
255 |
:from-end t) |
:from-end t) |
256 |
8) |
8) |
257 |
|
|
258 |
(deftest position-vector.20 |
(deftest position-vector.20 |
259 |
(position 'a #(a a b a c e d a f a) :test-not #'eq) |
(position 'a #(a a b a c e d a f a) :test-not #'eql) |
260 |
2) |
2) |
261 |
|
|
262 |
(deftest position-vector.21 |
(deftest position-vector.21 |
263 |
(position 'a #(a a b a c e d a f a) :test #'eq |
(position 'a #(a a b a c e d a f a) :test #'eql |
264 |
:start 2) |
:start 2) |
265 |
3) |
3) |
266 |
|
|
267 |
(deftest position-vector.22 |
(deftest position-vector.22 |
268 |
(position 'a #(a a b a c e d a f a) :test #'eq |
(position 'a #(a a b a c e d a f a) :test #'eql |
269 |
:start 2 :end nil) |
:start 2 :end nil) |
270 |
3) |
3) |
271 |
|
|
272 |
(deftest position-vector.23 |
(deftest position-vector.23 |
273 |
(position 'a #(a a b a c e d a f a) :test-not #'eq |
(position 'a #(a a b a c e d a f a) :test-not #'eql |
274 |
:start 0 :end 5) |
:start 0 :end 5) |
275 |
2) |
2) |
276 |
|
|
277 |
(deftest position-vector.24 |
(deftest position-vector.24 |
278 |
(position 'a #(a a b a c e d a f a) :test-not #'eq |
(position 'a #(a a b a c e d a f a) :test-not #'eql |
279 |
:start 0 :end 5 :from-end t) |
:start 0 :end 5 :from-end t) |
280 |
4) |
4) |
281 |
|
|
392 |
6) |
6) |
393 |
|
|
394 |
(deftest position-bit-vector.14 |
(deftest position-bit-vector.14 |
395 |
(position 0 #*0010111010 :test (complement #'eq)) |
(position 0 #*0010111010 :test (complement #'eql)) |
396 |
2) |
2) |
397 |
|
|
398 |
(deftest position-bit-vector.15 |
(deftest position-bit-vector.15 |
399 |
(position 0 #*0010111010 :test (complement #'eq) |
(position 0 #*0010111010 :test (complement #'eql) |
400 |
:from-end t) |
:from-end t) |
401 |
8) |
8) |
402 |
|
|
403 |
(deftest position-bit-vector.16 |
(deftest position-bit-vector.16 |
404 |
(position 0 #*0010111010 :test-not #'eq) |
(position 0 #*0010111010 :test-not #'eql) |
405 |
2) |
2) |
406 |
|
|
407 |
(deftest position-bit-vector.17 |
(deftest position-bit-vector.17 |
408 |
(position 0 #*001011101 :test-not 'eq |
(position 0 #*001011101 :test-not 'eql |
409 |
:from-end t) |
:from-end t) |
410 |
8) |
8) |
411 |
|
|
412 |
(deftest position-bit-vector.18 |
(deftest position-bit-vector.18 |
413 |
(position 0 #*00101110 :test-not 'eq) |
(position 0 #*00101110 :test-not 'eql) |
414 |
2) |
2) |
415 |
|
|
416 |
(deftest position-bit-vector.19 |
(deftest position-bit-vector.19 |
417 |
(position 0 #*00101110 :test-not #'eq |
(position 0 #*00101110 :test-not #'eql |
418 |
:from-end t) |
:from-end t) |
419 |
6) |
6) |
420 |
|
|
421 |
(deftest position-bit-vector.20 |
(deftest position-bit-vector.20 |
422 |
(position 0 #*00101110 :test-not #'eq) |
(position 0 #*00101110 :test-not #'eql) |
423 |
2) |
2) |
424 |
|
|
425 |
(deftest position-bit-vector.21 |
(deftest position-bit-vector.21 |
426 |
(position 0 #*00101110 :test #'eq |
(position 0 #*00101110 :test #'eql |
427 |
:start 2) |
:start 2) |
428 |
3) |
3) |
429 |
|
|
430 |
(deftest position-bit-vector.22 |
(deftest position-bit-vector.22 |
431 |
(position 0 #*00101110 :test #'eq |
(position 0 #*00101110 :test #'eql |
432 |
:start 2 :end nil) |
:start 2 :end nil) |
433 |
3) |
3) |
434 |
|
|
435 |
(deftest position-bit-vector.23 |
(deftest position-bit-vector.23 |
436 |
(position 0 #*00101110 :test-not #'eq |
(position 0 #*00101110 :test-not #'eql |
437 |
:start 0 :end 5) |
:start 0 :end 5) |
438 |
2) |
2) |
439 |
|
|
440 |
(deftest position-bit-vector.24 |
(deftest position-bit-vector.24 |
441 |
(position 0 #*00101110 :test-not #'eq |
(position 0 #*00101110 :test-not #'eql |
442 |
:start 0 :end 5 :from-end t) |
:start 0 :end 5 :from-end t) |
443 |
4) |
4) |
444 |
|
|
562 |
6) |
6) |
563 |
|
|
564 |
(deftest position-string.14 |
(deftest position-string.14 |
565 |
(position #\a "aabacedafa" :test (complement #'eq)) |
(position #\a "aabacedafa" :test (complement #'eql)) |
566 |
2) |
2) |
567 |
|
|
568 |
(deftest position-string.15 |
(deftest position-string.15 |
569 |
(position #\a "aabacedafa" :test (complement #'eq) |
(position #\a "aabacedafa" :test (complement #'eql) |
570 |
:from-end t) |
:from-end t) |
571 |
8) |
8) |
572 |
|
|
573 |
(deftest position-string.16 |
(deftest position-string.16 |
574 |
(position #\a "aabacedafa" :test-not #'eq) |
(position #\a "aabacedafa" :test-not #'eql) |
575 |
2) |
2) |
576 |
|
|
577 |
(deftest position-string.17 |
(deftest position-string.17 |
578 |
(position #\a "aabacedafa" :test-not 'eq |
(position #\a "aabacedafa" :test-not 'eql |
579 |
:from-end t) |
:from-end t) |
580 |
8) |
8) |
581 |
|
|
582 |
(deftest position-string.18 |
(deftest position-string.18 |
583 |
(position #\a "aabacedafa" :test-not 'eq) |
(position #\a "aabacedafa" :test-not 'eql) |
584 |
2) |
2) |
585 |
|
|
586 |
(deftest position-string.19 |
(deftest position-string.19 |
587 |
(position #\a "aabacedafa" :test-not #'eq |
(position #\a "aabacedafa" :test-not #'eql |
588 |
:from-end t) |
:from-end t) |
589 |
8) |
8) |
590 |
|
|
591 |
(deftest position-string.20 |
(deftest position-string.20 |
592 |
(position #\a "aabacedafa" :test-not #'eq) |
(position #\a "aabacedafa" :test-not #'eql) |
593 |
2) |
2) |
594 |
|
|
595 |
(deftest position-string.21 |
(deftest position-string.21 |
596 |
(position #\a "aabacedafa" :test #'eq |
(position #\a "aabacedafa" :test #'eql |
597 |
:start 2) |
:start 2) |
598 |
3) |
3) |
599 |
|
|
600 |
(deftest position-string.22 |
(deftest position-string.22 |
601 |
(position #\a "aabacedafa" :test #'eq |
(position #\a "aabacedafa" :test #'eql |
602 |
:start 2 :end nil) |
:start 2 :end nil) |
603 |
3) |
3) |
604 |
|
|
605 |
(deftest position-string.23 |
(deftest position-string.23 |
606 |
(position #\a "aabacedafa" :test-not #'eq |
(position #\a "aabacedafa" :test-not #'eql |
607 |
:start 0 :end 5) |
:start 0 :end 5) |
608 |
2) |
2) |
609 |
|
|
610 |
(deftest position-string.24 |
(deftest position-string.24 |
611 |
(position #\a "aabacedafa" :test-not #'eq |
(position #\a "aabacedafa" :test-not #'eql |
612 |
:start 0 :end 5 :from-end t) |
:start 0 :end 5 :from-end t) |
613 |
4) |
4) |
614 |
|
|