352 |
t) |
t) |
353 |
|
|
354 |
(deftest nsubstitute-if-string.28 |
(deftest nsubstitute-if-string.28 |
355 |
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list) |
(let* ((x (make-array '(10) :initial-contents "abacbadeaf" |
356 |
:fill-pointer 5 :element-type 'character)) |
:fill-pointer 5 :element-type 'character)) |
357 |
(result (nsubstitute-if #\z (is-eql-p #\a) x))) |
(result (nsubstitute-if #\z (is-eql-p #\a) x))) |
358 |
result) |
result) |
359 |
"zbzcb") |
"zbzcb") |
360 |
|
|
361 |
(deftest nsubstitute-if-string.29 |
(deftest nsubstitute-if-string.29 |
362 |
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list) |
(let* ((x (make-array '(10) :initial-contents "abacbadeaf" |
363 |
:fill-pointer 5 :element-type 'character)) |
:fill-pointer 5 :element-type 'character)) |
364 |
(result (nsubstitute-if #\z (is-eql-p #\a) x :from-end t))) |
(result (nsubstitute-if #\z (is-eql-p #\a) x :from-end t))) |
365 |
result) |
result) |
366 |
"zbzcb") |
"zbzcb") |
367 |
|
|
368 |
(deftest nsubstitute-if-string.30 |
(deftest nsubstitute-if-string.30 |
369 |
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list) |
(let* ((x (make-array '(10) :initial-contents "abacbadeaf" |
370 |
:fill-pointer 5 :element-type 'character)) |
:fill-pointer 5 :element-type 'character)) |
371 |
(result (nsubstitute-if #\z (is-eql-p #\a) x :count 1))) |
(result (nsubstitute-if #\z (is-eql-p #\a) x :count 1))) |
372 |
result) |
result) |
373 |
"zbacb") |
"zbacb") |
374 |
|
|
375 |
(deftest nsubstitute-if-string.31 |
(deftest nsubstitute-if-string.31 |
376 |
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list) |
(let* ((x (make-array '(10) :initial-contents "abacbadeaf" |
377 |
:fill-pointer 5 :element-type 'character)) |
:fill-pointer 5 :element-type 'character)) |
378 |
(result (nsubstitute-if #\z (is-eql-p #\a) x :from-end t :count 1))) |
(result (nsubstitute-if #\z (is-eql-p #\a) x :from-end t :count 1))) |
379 |
result) |
result) |