Commit 208e78b2 authored by pfdietz's avatar pfdietz

Removed unnecessary (coerce ... 'list) forms from MAKE-ARRAY calls.

parent 1a65162b
......@@ -137,7 +137,7 @@
#(a b c d e))
(deftest concatenate.28
(let* ((x (make-array '(10) :initial-contents (coerce "abcdefghij" 'list)
(let* ((x (make-array '(10) :initial-contents "abcdefghij"
:fill-pointer 5 :element-type 'character)))
(values
(concatenate 'string x '(#\z))
......@@ -153,7 +153,7 @@
nil)
(deftest concatenate.29
(let* ((x (make-array '(10) :initial-contents (coerce "abcdefghij" 'list)
(let* ((x (make-array '(10) :initial-contents "abcdefghij"
:fill-pointer 5 :element-type 'base-char)))
(values
(concatenate 'string x '(#\z))
......@@ -169,7 +169,7 @@
nil)
(deftest concatenate.30
(let* ((x (make-array '(10) :initial-contents (coerce #*0110010111 'list)
(let* ((x (make-array '(10) :initial-contents #*0110010111
:fill-pointer 5 :element-type 'bit)))
(values
(concatenate 'bit-vector x '(0))
......
......@@ -408,7 +408,7 @@
(deftest count-if-not-string.17
(flet ((%zerop (c) (eql c #\0))
(%onep (c) (eql c #\1)))
(let ((a (make-array '(10) :initial-contents (coerce "0001110100" 'list)
(let ((a (make-array '(10) :initial-contents "0001110100"
:fill-pointer 5
:element-type 'character)))
(and (stringp a)
......
......@@ -407,7 +407,7 @@
(deftest count-if-string.17
(let ((s (make-array '(10)
:initial-contents (coerce "00a0aa0a0a" 'list)
:initial-contents "00a0aa0a0a"
:element-type 'character
:fill-pointer 6)))
(values (count-if #'digit-char-p s)
......
......@@ -460,27 +460,27 @@
5)
(deftest count-string.17
(count #\a (make-array 10 :initial-contents (coerce "abaaacaaaa" 'list)
(count #\a (make-array 10 :initial-contents "abaaacaaaa"
:fill-pointer 7
:element-type 'character))
5)
(deftest count-string.18
(count #\a (make-array 10 :initial-contents (coerce "abaaacaaaa" 'list)
(count #\a (make-array 10 :initial-contents "abaaacaaaa"
:fill-pointer 7
:element-type 'character)
:start 1)
4)
(deftest count-string.19
(count #\a (make-array 10 :initial-contents (coerce "abaaacaaaa" 'list)
(count #\a (make-array 10 :initial-contents "abaaacaaaa"
:fill-pointer 7
:element-type 'character)
:end nil)
5)
(deftest count-string.20
(count #\a (make-array 10 :initial-contents (coerce "abaaacaaaa" 'list)
(count #\a (make-array 10 :initial-contents "abaaacaaaa"
:fill-pointer 7
:element-type 'character)
:start 2 :end 5)
......
......@@ -496,7 +496,7 @@
(#\6)))
(deftest find-if-string.19
(let ((a (make-array '(10) :initial-contents (coerce "123456789a" 'list)
(let ((a (make-array '(10) :initial-contents "123456789a"
:fill-pointer 5
:element-type 'character)))
(values
......
......@@ -730,7 +730,7 @@
#\c)
(deftest find-string.25
(let ((s (make-array '(10) :initial-contents (coerce "abcdefghij" 'list)
(let ((s (make-array '(10) :initial-contents "abcdefghij"
:element-type 'character
:fill-pointer 5)))
(values
......
......@@ -294,27 +294,27 @@
"123")
(deftest merge-string.15
(let* ((x (make-array '(10) :initial-contents (coerce "adgkmpruwv" 'list)
(let* ((x (make-array '(10) :initial-contents "adgkmpruwv"
:fill-pointer 5 :element-type 'character))
(y (copy-seq "bci")))
(merge 'string x y #'char<))
"abcdgikm")
(deftest merge-string.16
(let* ((x (make-array '(10) :initial-contents (coerce "adgkmpruwv" 'list)
(let* ((x (make-array '(10) :initial-contents "adgkmpruwv"
:fill-pointer 5 :element-type 'character))
(y (copy-seq "bci")))
(merge 'string y x #'char<))
"abcdgikm")
(deftest merge-string.17
(let* ((x (make-array '(10) :initial-contents (coerce "adgkmpruwv" 'list)
(let* ((x (make-array '(10) :initial-contents "adgkmpruwv"
:fill-pointer 5 :element-type 'character)))
(merge 'string nil x #'char<))
"adgkm")
(deftest merge-string.18
(let* ((x (make-array '(10) :initial-contents (coerce "adgkmpruwv" 'list)
(let* ((x (make-array '(10) :initial-contents "adgkmpruwv"
:fill-pointer 5 :element-type 'character)))
(merge 'string x nil #'char<))
"adgkm")
......@@ -435,27 +435,27 @@
#*011)
(deftest merge-bit-vector.16
(let* ((x (make-array '(10) :initial-contents (coerce #*0001101010 'list)
(let* ((x (make-array '(10) :initial-contents #*0001101010
:fill-pointer 5 :element-type 'bit))
(y (copy-seq #*001)))
(merge 'bit-vector x y #'<))
#*00000111)
(deftest merge-bit-vector.17
(let* ((x (make-array '(10) :initial-contents (coerce #*0001101010 'list)
(let* ((x (make-array '(10) :initial-contents #*0001101010
:fill-pointer 5 :element-type 'bit))
(y (copy-seq #*001)))
(merge 'bit-vector y x #'<))
#*00000111)
(deftest merge-bit-vector.18
(let* ((x (make-array '(10) :initial-contents (coerce #*0001101010 'list)
(let* ((x (make-array '(10) :initial-contents #*0001101010
:fill-pointer 5 :element-type 'bit)))
(merge 'bit-vector nil x #'<))
#*00011)
(deftest merge-bit-vector.19
(let* ((x (make-array '(10) :initial-contents (coerce #*0001101010 'list)
(let* ((x (make-array '(10) :initial-contents #*0001101010
:fill-pointer 5 :element-type 'bit)))
(merge 'bit-vector x nil #'<))
#*00011)
......
......@@ -365,7 +365,7 @@
5)
(deftest mismatch-bit-vector.23
(let ((a (make-array '(9) :initial-contents (coerce #*001011000 'list)
(let ((a (make-array '(9) :initial-contents #*001011000
:fill-pointer 5
:element-type 'bit)))
(values
......@@ -378,7 +378,7 @@
nil nil 4 5 4 4)
(deftest mismatch-bit-vector.24
(let ((m (make-array '(6) :initial-contents (coerce #*001011 'list)
(let ((m (make-array '(6) :initial-contents #*001011
:fill-pointer 4
:element-type 'bit))
(a #*00101))
......@@ -569,7 +569,7 @@
5)
(deftest mismatch-string.23
(let ((a (make-array '(9) :initial-contents (coerce "123456789" 'list)
(let ((a (make-array '(9) :initial-contents "123456789"
:fill-pointer 5
:element-type 'character)))
(values
......@@ -582,7 +582,7 @@
nil nil 4 5 4 0)
(deftest mismatch-string.24
(let ((m (make-array '(6) :initial-contents (coerce "123456" 'list)
(let ((m (make-array '(6) :initial-contents "123456"
:fill-pointer 4
:element-type 'character))
(a "12345"))
......
......@@ -71,7 +71,7 @@
"011011011000")
(deftest nreverse-string.3
(let* ((x (make-array 10 :initial-contents (coerce "abcdefghij" 'list)
(let* ((x (make-array 10 :initial-contents "abcdefghij"
:fill-pointer 5
:element-type 'character))
(y (nreverse x)))
......@@ -79,7 +79,7 @@
"edcba")
(deftest nreverse-string.4
(let* ((x (make-array 10 :initial-contents (coerce "abcdefghij" 'list)
(let* ((x (make-array 10 :initial-contents "abcdefghij"
:fill-pointer 5
:element-type 'base-char))
(y (nreverse x)))
......
......@@ -353,28 +353,28 @@
t)
(deftest nsubstitute-if-not-string.28
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (nsubstitute-if-not #\z (is-not-eql-p #\a) x)))
result)
"zbzcb")
(deftest nsubstitute-if-not-string.29
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (nsubstitute-if-not #\z (is-not-eql-p #\a) x :from-end t)))
result)
"zbzcb")
(deftest nsubstitute-if-not-string.30
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (nsubstitute-if-not #\z (is-not-eql-p #\a) x :count 1)))
result)
"zbacb")
(deftest nsubstitute-if-not-string.31
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (nsubstitute-if-not #\z (is-not-eql-p #\a) x
:from-end t :count 1)))
......
......@@ -352,28 +352,28 @@
t)
(deftest nsubstitute-if-string.28
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (nsubstitute-if #\z (is-eql-p #\a) x)))
result)
"zbzcb")
(deftest nsubstitute-if-string.29
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (nsubstitute-if #\z (is-eql-p #\a) x :from-end t)))
result)
"zbzcb")
(deftest nsubstitute-if-string.30
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (nsubstitute-if #\z (is-eql-p #\a) x :count 1)))
result)
"zbacb")
(deftest nsubstitute-if-string.31
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (nsubstitute-if #\z (is-eql-p #\a) x :from-end t :count 1)))
result)
......
......@@ -495,28 +495,28 @@
"1234567x9")
(deftest nsubstitute-string.28
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (nsubstitute #\z #\a x)))
result)
"zbzcb")
(deftest nsubstitute-string.29
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (nsubstitute #\z #\a x :from-end t)))
result)
"zbzcb")
(deftest nsubstitute-string.30
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (nsubstitute #\z #\a x :count 1)))
result)
"zbacb")
(deftest nsubstitute-string.31
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (nsubstitute #\z #\a x :from-end t :count 1)))
result)
......
......@@ -433,7 +433,7 @@
(nil)))
(deftest position-if-not-string.13
(let ((a (make-array '(10) :initial-contents (coerce "55555aaaaa" 'list)
(let ((a (make-array '(10) :initial-contents "55555aaaaa"
:fill-pointer 5
:element-type 'character)))
(and (stringp a)
......
......@@ -432,8 +432,7 @@
(deftest position-if-string.13
(flet ((%f (c) (eql c #\0))
(%g (c) (eql c #\1)))
(let ((a (make-array '(10) :initial-contents
(coerce "1111100000" 'list)
(let ((a (make-array '(10) :initial-contents "1111100000"
:fill-pointer 5
:element-type 'character)))
(values (position-if #'%f a)
......
......@@ -613,26 +613,26 @@
4)
(deftest position-string.25
(position #\a (make-array '(10) :initial-contents (coerce "bbbbbaaaaa" 'list)
(position #\a (make-array '(10) :initial-contents "bbbbbaaaaa"
:element-type 'character
:fill-pointer 5))
nil)
(deftest position-string.26
(position #\a (make-array '(10) :initial-contents (coerce "bbbbbaaaaa" 'list)
(position #\a (make-array '(10) :initial-contents "bbbbbaaaaa"
:element-type 'character
:fill-pointer 5)
:from-end t)
nil)
(deftest position-string.27
(position #\a (make-array '(10) :initial-contents (coerce "bbbbaaaaaa" 'list)
(position #\a (make-array '(10) :initial-contents "bbbbaaaaaa"
:element-type 'character
:fill-pointer 5))
4)
(deftest position-string.28
(position #\a (make-array '(10) :initial-contents (coerce "babbaaaaaa" 'list)
(position #\a (make-array '(10) :initial-contents "babbaaaaaa"
:element-type 'character
:fill-pointer 5)
:from-end t)
......
......@@ -228,7 +228,7 @@
0)
(deftest reduce-string.14
(let ((s (make-array '(8) :initial-contents (coerce "abcdefgh" 'list)
(let ((s (make-array '(8) :initial-contents "abcdefgh"
:fill-pointer 6
:element-type 'character)))
(coerce (reduce #'(lambda (x y) (cons y x)) s :initial-value nil)
......@@ -236,7 +236,7 @@
"fedcba")
(deftest reduce-string.15
(let ((s (make-array '(8) :initial-contents (coerce "abcdefgh" 'list)
(let ((s (make-array '(8) :initial-contents "abcdefgh"
:fill-pointer 6
:element-type 'character)))
(coerce (reduce #'(lambda (x y) (cons y x)) s :initial-value nil
......@@ -245,7 +245,7 @@
"fedcb")
(deftest reduce-string.16
(let ((s (make-array '(8) :initial-contents (coerce "abcdefgh" 'list)
(let ((s (make-array '(8) :initial-contents "abcdefgh"
:fill-pointer 6
:element-type 'character)))
(coerce (reduce #'(lambda (x y) (cons y x)) s :end nil
......@@ -254,7 +254,7 @@
"fedcba")
(deftest reduce-string.17
(let ((s (make-array '(8) :initial-contents (coerce "abcdefgh" 'list)
(let ((s (make-array '(8) :initial-contents "abcdefgh"
:fill-pointer 6
:element-type 'character)))
(coerce (reduce #'(lambda (x y) (cons y x)) s :end 4
......
......@@ -564,7 +564,7 @@
(deftest replace-string.18
(let* ((x (copy-seq "abcdef"))
(y (make-array '(6) :initial-contents (coerce "123456" 'list)
(y (make-array '(6) :initial-contents "123456"
:fill-pointer 3
:element-type 'character))
(result (replace x y :start1 1)))
......
......@@ -74,7 +74,7 @@
"000110110110")
(deftest reverse-string.3
(let* ((x (make-array 10 :initial-contents (coerce "abcdefghij" 'list)
(let* ((x (make-array 10 :initial-contents "abcdefghij"
:fill-pointer 5
:element-type 'character))
(y (reverse x)))
......@@ -82,7 +82,7 @@
"edcba")
(deftest reverse-string.4
(let* ((x (make-array 10 :initial-contents (coerce "abcdefghij" 'list)
(let* ((x (make-array 10 :initial-contents "abcdefghij"
:fill-pointer 5
:element-type 'base-char))
(y (reverse x)))
......
......@@ -132,7 +132,7 @@
nil)
(deftest search-string.15
(let ((a (make-array '(10) :initial-contents (coerce "abbaaababb" 'list)
(let ((a (make-array '(10) :initial-contents "abbaaababb"
:fill-pointer 5
:element-type 'character)))
(values
......
......@@ -74,7 +74,7 @@
"11111000")
(deftest sort-string.3
(let ((a (make-array 10 :initial-contents (coerce "1001111011" 'list)
(let ((a (make-array 10 :initial-contents "1001111011"
:element-type 'character
:fill-pointer 5)))
(sort a #'char<))
......
......@@ -85,7 +85,7 @@
"11111000")
(deftest stable-sort-string.3
(let ((a (make-array 10 :initial-contents (coerce "1001111011" 'list)
(let ((a (make-array 10 :initial-contents "1001111011"
:element-type 'character
:fill-pointer 5)))
(stable-sort a #'char<))
......
......@@ -72,7 +72,7 @@
"cdaba")
(deftest string-left-trim.9
(let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list)
(let* ((s (make-array 7 :initial-contents "abcdaba"
:element-type 'character
))
(s2 (string-left-trim "ab" s)))
......@@ -81,7 +81,7 @@
"cdaba")
(deftest string-left-trim.10
(let* ((s (make-array 9 :initial-contents (coerce "abcdabadd" 'list)
(let* ((s (make-array 9 :initial-contents "abcdabadd"
:element-type 'character
:fill-pointer 7))
(s2 (string-left-trim "ab" s)))
......@@ -90,7 +90,7 @@
"cdaba")
(deftest string-left-trim.11
(let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list)
(let* ((s (make-array 7 :initial-contents "abcdaba"
:element-type 'standard-char
))
(s2 (string-left-trim "ab" s)))
......@@ -99,7 +99,7 @@
"cdaba")
(deftest string-left-trim.12
(let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list)
(let* ((s (make-array 7 :initial-contents "abcdaba"
:element-type 'base-char
))
(s2 (string-left-trim "ab" s)))
......
......@@ -72,7 +72,7 @@
"abcd")
(deftest string-right-trim.9
(let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list)
(let* ((s (make-array 7 :initial-contents "abcdaba"
:element-type 'character
))
(s2 (string-right-trim "ab" s)))
......@@ -81,7 +81,7 @@
"abcd")
(deftest string-right-trim.10
(let* ((s (make-array 9 :initial-contents (coerce "abcdabadd" 'list)
(let* ((s (make-array 9 :initial-contents "abcdabadd"
:element-type 'character
:fill-pointer 7))
(s2 (string-right-trim "ab" s)))
......@@ -90,7 +90,7 @@
"abcd")
(deftest string-right-trim.11
(let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list)
(let* ((s (make-array 7 :initial-contents "abcdaba"
:element-type 'standard-char
))
(s2 (string-right-trim "ab" s)))
......@@ -99,7 +99,7 @@
"abcd")
(deftest string-right-trim.12
(let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list)
(let* ((s (make-array 7 :initial-contents "abcdaba"
:element-type 'base-char
))
(s2 (string-right-trim "ab" s)))
......
......@@ -72,7 +72,7 @@
"cd")
(deftest string-trim.9
(let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list)
(let* ((s (make-array 7 :initial-contents "abcdaba"
:element-type 'character
))
(s2 (string-trim "ab" s)))
......@@ -81,7 +81,7 @@
"cd")
(deftest string-trim.10
(let* ((s (make-array 9 :initial-contents (coerce "abcdabadd" 'list)
(let* ((s (make-array 9 :initial-contents "abcdabadd"
:element-type 'character
:fill-pointer 7))
(s2 (string-trim "ab" s)))
......@@ -90,7 +90,7 @@
"cd")
(deftest string-trim.11
(let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list)
(let* ((s (make-array 7 :initial-contents "abcdaba"
:element-type 'standard-char
))
(s2 (string-trim "ab" s)))
......@@ -99,7 +99,7 @@
"cd")
(deftest string-trim.12
(let* ((s (make-array 7 :initial-contents (coerce "abcdaba" 'list)
(let* ((s (make-array 7 :initial-contents "abcdaba"
:element-type 'base-char
))
(s2 (string-trim "ab" s)))
......
......@@ -174,8 +174,7 @@
'string))))))
(defun subseq-string-3-body ()
(let* ((s1 (make-array '(10) :initial-contents
(coerce "abcdefghij" 'list)
(let* ((s1 (make-array '(10) :initial-contents "abcdefghij"
:fill-pointer 8
:element-type 'character))
(len (length s1)))
......@@ -218,8 +217,7 @@
'bit-vector))))))
(defun subseq-bit-vector-3-body ()
(let* ((s1 (make-array '(10) :initial-contents
(coerce #*1101100110 'list)
(let* ((s1 (make-array '(10) :initial-contents #*1101100110
:fill-pointer 8
:element-type 'bit))
(len (length s1)))
......
......@@ -402,28 +402,28 @@
t)
(deftest substitute-if-not-string.28
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (substitute-if-not #\z (is-not-eql-p #\a) x)))
result)
"zbzcb")
(deftest substitute-if-not-string.29
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (substitute-if-not #\z (is-not-eql-p #\a) x :from-end t)))
result)
"zbzcb")
(deftest substitute-if-not-string.30
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (substitute-if-not #\z (is-not-eql-p #\a) x :count 1)))
result)
"zbacb")
(deftest substitute-if-not-string.31
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (substitute-if-not #\z (is-not-eql-p #\a) x
:from-end t :count 1)))
......
......@@ -429,28 +429,28 @@
(deftest substitute-if-string.28
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (substitute-if #\z (is-eql-p #\a) x)))
result)
"zbzcb")
(deftest substitute-if-string.29
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (substitute-if #\z (is-eql-p #\a) x :from-end t)))
result)
"zbzcb")
(deftest substitute-if-string.30
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (substitute-if #\z (is-eql-p #\a) x :count 1)))
result)
"zbacb")
(deftest substitute-if-string.31
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (substitute-if #\z (is-eql-p #\a) x :from-end t :count 1)))
result)
......
......@@ -655,28 +655,28 @@
"0a0aaaa0aa")
(deftest substitute-string.28
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (substitute #\z #\a x)))
result)
"zbzcb")
(deftest substitute-string.29
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (substitute #\z #\a x :from-end t)))
result)
"zbzcb")
(deftest substitute-string.30
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (substitute #\z #\a x :count 1)))
result)
"zbacb")
(deftest substitute-string.31
(let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)
(let* ((x (make-array '(10) :initial-contents "abacbadeaf"
:fill-pointer 5 :element-type 'character))
(result (substitute #\z #\a x :from-end t :count 1)))
result)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment