495 |
"1234567x9") |
"1234567x9") |
496 |
|
|
497 |
(deftest nsubstitute-string.28 |
(deftest nsubstitute-string.28 |
498 |
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list) |
(let* ((x (make-array '(10) :initial-contents "abacbadeaf" |
499 |
:fill-pointer 5 :element-type 'character)) |
:fill-pointer 5 :element-type 'character)) |
500 |
(result (nsubstitute #\z #\a x))) |
(result (nsubstitute #\z #\a x))) |
501 |
result) |
result) |
502 |
"zbzcb") |
"zbzcb") |
503 |
|
|
504 |
(deftest nsubstitute-string.29 |
(deftest nsubstitute-string.29 |
505 |
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list) |
(let* ((x (make-array '(10) :initial-contents "abacbadeaf" |
506 |
:fill-pointer 5 :element-type 'character)) |
:fill-pointer 5 :element-type 'character)) |
507 |
(result (nsubstitute #\z #\a x :from-end t))) |
(result (nsubstitute #\z #\a x :from-end t))) |
508 |
result) |
result) |
509 |
"zbzcb") |
"zbzcb") |
510 |
|
|
511 |
(deftest nsubstitute-string.30 |
(deftest nsubstitute-string.30 |
512 |
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list) |
(let* ((x (make-array '(10) :initial-contents "abacbadeaf" |
513 |
:fill-pointer 5 :element-type 'character)) |
:fill-pointer 5 :element-type 'character)) |
514 |
(result (nsubstitute #\z #\a x :count 1))) |
(result (nsubstitute #\z #\a x :count 1))) |
515 |
result) |
result) |
516 |
"zbacb") |
"zbacb") |
517 |
|
|
518 |
(deftest nsubstitute-string.31 |
(deftest nsubstitute-string.31 |
519 |
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list) |
(let* ((x (make-array '(10) :initial-contents "abacbadeaf" |
520 |
:fill-pointer 5 :element-type 'character)) |
:fill-pointer 5 :element-type 'character)) |
521 |
(result (nsubstitute #\z #\a x :from-end t :count 1))) |
(result (nsubstitute #\z #\a x :from-end t :count 1))) |
522 |
result) |
result) |