402 |
t) |
t) |
403 |
|
|
404 |
(deftest substitute-if-not-string.28 |
(deftest substitute-if-not-string.28 |
405 |
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list) |
(let* ((x (make-array '(10) :initial-contents "abacbadeaf" |
406 |
:fill-pointer 5 :element-type 'character)) |
:fill-pointer 5 :element-type 'character)) |
407 |
(result (substitute-if-not #\z (is-not-eql-p #\a) x))) |
(result (substitute-if-not #\z (is-not-eql-p #\a) x))) |
408 |
result) |
result) |
409 |
"zbzcb") |
"zbzcb") |
410 |
|
|
411 |
(deftest substitute-if-not-string.29 |
(deftest substitute-if-not-string.29 |
412 |
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list) |
(let* ((x (make-array '(10) :initial-contents "abacbadeaf" |
413 |
:fill-pointer 5 :element-type 'character)) |
:fill-pointer 5 :element-type 'character)) |
414 |
(result (substitute-if-not #\z (is-not-eql-p #\a) x :from-end t))) |
(result (substitute-if-not #\z (is-not-eql-p #\a) x :from-end t))) |
415 |
result) |
result) |
416 |
"zbzcb") |
"zbzcb") |
417 |
|
|
418 |
(deftest substitute-if-not-string.30 |
(deftest substitute-if-not-string.30 |
419 |
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list) |
(let* ((x (make-array '(10) :initial-contents "abacbadeaf" |
420 |
:fill-pointer 5 :element-type 'character)) |
:fill-pointer 5 :element-type 'character)) |
421 |
(result (substitute-if-not #\z (is-not-eql-p #\a) x :count 1))) |
(result (substitute-if-not #\z (is-not-eql-p #\a) x :count 1))) |
422 |
result) |
result) |
423 |
"zbacb") |
"zbacb") |
424 |
|
|
425 |
(deftest substitute-if-not-string.31 |
(deftest substitute-if-not-string.31 |
426 |
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list) |
(let* ((x (make-array '(10) :initial-contents "abacbadeaf" |
427 |
:fill-pointer 5 :element-type 'character)) |
:fill-pointer 5 :element-type 'character)) |
428 |
(result (substitute-if-not #\z (is-not-eql-p #\a) x |
(result (substitute-if-not #\z (is-not-eql-p #\a) x |
429 |
:from-end t :count 1))) |
:from-end t :count 1))) |