460 |
5) |
5) |
461 |
|
|
462 |
(deftest count-string.17 |
(deftest count-string.17 |
463 |
(count #\a (make-array 10 :initial-contents (coerce "abaaacaaaa" 'list) |
(count #\a (make-array 10 :initial-contents "abaaacaaaa" |
464 |
:fill-pointer 7 |
:fill-pointer 7 |
465 |
:element-type 'character)) |
:element-type 'character)) |
466 |
5) |
5) |
467 |
|
|
468 |
(deftest count-string.18 |
(deftest count-string.18 |
469 |
(count #\a (make-array 10 :initial-contents (coerce "abaaacaaaa" 'list) |
(count #\a (make-array 10 :initial-contents "abaaacaaaa" |
470 |
:fill-pointer 7 |
:fill-pointer 7 |
471 |
:element-type 'character) |
:element-type 'character) |
472 |
:start 1) |
:start 1) |
473 |
4) |
4) |
474 |
|
|
475 |
(deftest count-string.19 |
(deftest count-string.19 |
476 |
(count #\a (make-array 10 :initial-contents (coerce "abaaacaaaa" 'list) |
(count #\a (make-array 10 :initial-contents "abaaacaaaa" |
477 |
:fill-pointer 7 |
:fill-pointer 7 |
478 |
:element-type 'character) |
:element-type 'character) |
479 |
:end nil) |
:end nil) |
480 |
5) |
5) |
481 |
|
|
482 |
(deftest count-string.20 |
(deftest count-string.20 |
483 |
(count #\a (make-array 10 :initial-contents (coerce "abaaacaaaa" 'list) |
(count #\a (make-array 10 :initial-contents "abaaacaaaa" |
484 |
:fill-pointer 7 |
:fill-pointer 7 |
485 |
:element-type 'character) |
:element-type 'character) |
486 |
:start 2 :end 5) |
:start 2 :end 5) |