297 |
:start 2 :from-end t) |
:start 2 :from-end t) |
298 |
4) |
4) |
299 |
|
|
300 |
|
(deftest position-vector.29 |
301 |
|
(position 'a (make-array '(10) :initial-contents '(b b b b b a a a a a) |
302 |
|
:fill-pointer 5)) |
303 |
|
nil) |
304 |
|
|
305 |
|
(deftest position-vector.30 |
306 |
|
(position 'a (make-array '(10) :initial-contents '(b b b b a a a a a a) |
307 |
|
:fill-pointer 5)) |
308 |
|
4) |
309 |
|
|
310 |
|
(deftest position-vector.31 |
311 |
|
(position 'a (make-array '(10) :initial-contents '(b a b b a a a a a a) |
312 |
|
:fill-pointer 5) |
313 |
|
:from-end t) |
314 |
|
4) |
315 |
|
|
316 |
;;; tests on bit vectors |
;;; tests on bit vectors |
317 |
|
|
318 |
(deftest position-bit-vector.1 |
(deftest position-bit-vector.1 |
452 |
:start 2 :from-end t) |
:start 2 :from-end t) |
453 |
8) |
8) |
454 |
|
|
455 |
|
(deftest position-bit-vector.28 |
456 |
|
(position 0 (make-array '(10) :initial-contents '(1 1 1 1 1 0 0 0 0 0) |
457 |
|
:element-type 'bit |
458 |
|
:fill-pointer 5)) |
459 |
|
nil) |
460 |
|
|
461 |
|
(deftest position-bit-vector.29 |
462 |
|
(position 0 (make-array '(10) :initial-contents '(1 1 1 1 1 0 0 0 0 0) |
463 |
|
:element-type 'bit |
464 |
|
:fill-pointer 5) |
465 |
|
:from-end t) |
466 |
|
nil) |
467 |
|
|
468 |
|
(deftest position-bit-vector.30 |
469 |
|
(position 0 (make-array '(10) :initial-contents '(1 1 1 1 0 0 0 0 0 0) |
470 |
|
:element-type 'bit |
471 |
|
:fill-pointer 5)) |
472 |
|
4) |
473 |
|
|
474 |
|
(deftest position-bit-vector.31 |
475 |
|
(position 0 (make-array '(10) :initial-contents '(0 1 0 1 0 0 0 0 0 0) |
476 |
|
:element-type 'bit |
477 |
|
:fill-pointer 5) |
478 |
|
:from-end t) |
479 |
|
4) |
480 |
|
|
481 |
|
(deftest position-bit-vector.32 |
482 |
|
(position 0 (make-array '(10) :initial-contents '(1 0 1 1 0 0 0 0 0 0) |
483 |
|
:element-type 'bit |
484 |
|
:fill-pointer 5)) |
485 |
|
1) |
486 |
|
|
487 |
;;; strings |
;;; strings |
488 |
|
|
489 |
(deftest position-string.1 |
(deftest position-string.1 |
612 |
:start 0 :end 5 :from-end t) |
:start 0 :end 5 :from-end t) |
613 |
4) |
4) |
614 |
|
|
615 |
|
(deftest position-string.25 |
616 |
|
(position #\a (make-array '(10) :initial-contents (coerce "bbbbbaaaaa" 'list) |
617 |
|
:element-type 'character |
618 |
|
:fill-pointer 5)) |
619 |
|
nil) |
620 |
|
|
621 |
|
(deftest position-string.26 |
622 |
|
(position #\a (make-array '(10) :initial-contents (coerce "bbbbbaaaaa" 'list) |
623 |
|
:element-type 'character |
624 |
|
:fill-pointer 5) |
625 |
|
:from-end t) |
626 |
|
nil) |
627 |
|
|
628 |
|
(deftest position-string.27 |
629 |
|
(position #\a (make-array '(10) :initial-contents (coerce "bbbbaaaaaa" 'list) |
630 |
|
:element-type 'character |
631 |
|
:fill-pointer 5)) |
632 |
|
4) |
633 |
|
|
634 |
|
(deftest position-string.28 |
635 |
|
(position #\a (make-array '(10) :initial-contents (coerce "babbaaaaaa" 'list) |
636 |
|
:element-type 'character |
637 |
|
:fill-pointer 5) |
638 |
|
:from-end t) |
639 |
|
4) |
640 |
|
|
641 |
;;; Error tests |
;;; Error tests |
642 |
|
|
643 |
(deftest position-error.1 |
(deftest position-error.1 |