613 |
4) |
4) |
614 |
|
|
615 |
(deftest position-string.25 |
(deftest position-string.25 |
616 |
(position #\a (make-array '(10) :initial-contents (coerce "bbbbbaaaaa" 'list) |
(position #\a (make-array '(10) :initial-contents "bbbbbaaaaa" |
617 |
:element-type 'character |
:element-type 'character |
618 |
:fill-pointer 5)) |
:fill-pointer 5)) |
619 |
nil) |
nil) |
620 |
|
|
621 |
(deftest position-string.26 |
(deftest position-string.26 |
622 |
(position #\a (make-array '(10) :initial-contents (coerce "bbbbbaaaaa" 'list) |
(position #\a (make-array '(10) :initial-contents "bbbbbaaaaa" |
623 |
:element-type 'character |
:element-type 'character |
624 |
:fill-pointer 5) |
:fill-pointer 5) |
625 |
:from-end t) |
:from-end t) |
626 |
nil) |
nil) |
627 |
|
|
628 |
(deftest position-string.27 |
(deftest position-string.27 |
629 |
(position #\a (make-array '(10) :initial-contents (coerce "bbbbaaaaaa" 'list) |
(position #\a (make-array '(10) :initial-contents "bbbbaaaaaa" |
630 |
:element-type 'character |
:element-type 'character |
631 |
:fill-pointer 5)) |
:fill-pointer 5)) |
632 |
4) |
4) |
633 |
|
|
634 |
(deftest position-string.28 |
(deftest position-string.28 |
635 |
(position #\a (make-array '(10) :initial-contents (coerce "babbaaaaaa" 'list) |
(position #\a (make-array '(10) :initial-contents "babbaaaaaa" |
636 |
:element-type 'character |
:element-type 'character |
637 |
:fill-pointer 5) |
:fill-pointer 5) |
638 |
:from-end t) |
:from-end t) |