Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
ansi-test
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Karsten Poeck
ansi-test
Commits
208e78b2
Commit
208e78b2
authored
Jan 03, 2003
by
pfdietz
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Removed unnecessary (coerce ... 'list) forms from MAKE-ARRAY calls.
parent
1a65162b
Changes
28
Hide whitespace changes
Inline
Side-by-side
Showing
28 changed files
with
79 additions
and
82 deletions
+79
-82
ansi-tests/concatenate.lsp
ansi-tests/concatenate.lsp
+3
-3
ansi-tests/count-if-not.lsp
ansi-tests/count-if-not.lsp
+1
-1
ansi-tests/count-if.lsp
ansi-tests/count-if.lsp
+1
-1
ansi-tests/count.lsp
ansi-tests/count.lsp
+4
-4
ansi-tests/find-if.lsp
ansi-tests/find-if.lsp
+1
-1
ansi-tests/find.lsp
ansi-tests/find.lsp
+1
-1
ansi-tests/merge.lsp
ansi-tests/merge.lsp
+8
-8
ansi-tests/mismatch.lsp
ansi-tests/mismatch.lsp
+4
-4
ansi-tests/nreverse.lsp
ansi-tests/nreverse.lsp
+2
-2
ansi-tests/nsubstitute-if-not.lsp
ansi-tests/nsubstitute-if-not.lsp
+4
-4
ansi-tests/nsubstitute-if.lsp
ansi-tests/nsubstitute-if.lsp
+4
-4
ansi-tests/nsubstitute.lsp
ansi-tests/nsubstitute.lsp
+4
-4
ansi-tests/position-if-not.lsp
ansi-tests/position-if-not.lsp
+1
-1
ansi-tests/position-if.lsp
ansi-tests/position-if.lsp
+1
-2
ansi-tests/position.lsp
ansi-tests/position.lsp
+4
-4
ansi-tests/reduce.lsp
ansi-tests/reduce.lsp
+4
-4
ansi-tests/replace.lsp
ansi-tests/replace.lsp
+1
-1
ansi-tests/reverse.lsp
ansi-tests/reverse.lsp
+2
-2
ansi-tests/search-string.lsp
ansi-tests/search-string.lsp
+1
-1
ansi-tests/sort.lsp
ansi-tests/sort.lsp
+1
-1
ansi-tests/stable-sort.lsp
ansi-tests/stable-sort.lsp
+1
-1
ansi-tests/string-left-trim.lsp
ansi-tests/string-left-trim.lsp
+4
-4
ansi-tests/string-right-trim.lsp
ansi-tests/string-right-trim.lsp
+4
-4
ansi-tests/string-trim.lsp
ansi-tests/string-trim.lsp
+4
-4
ansi-tests/subseq-aux.lsp
ansi-tests/subseq-aux.lsp
+2
-4
ansi-tests/substitute-if-not.lsp
ansi-tests/substitute-if-not.lsp
+4
-4
ansi-tests/substitute-if.lsp
ansi-tests/substitute-if.lsp
+4
-4
ansi-tests/substitute.lsp
ansi-tests/substitute.lsp
+4
-4
No files found.
ansi-tests/concatenate.lsp
View file @
208e78b2
...
...
@@ -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))
...
...
ansi-tests/count-if-not.lsp
View file @
208e78b2
...
...
@@ -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)
...
...
ansi-tests/count-if.lsp
View file @
208e78b2
...
...
@@ -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)
...
...
ansi-tests/count.lsp
View file @
208e78b2
...
...
@@ -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)
...
...
ansi-tests/find-if.lsp
View file @
208e78b2
...
...
@@ -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
...
...
ansi-tests/find.lsp
View file @
208e78b2
...
...
@@ -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
...
...
ansi-tests/merge.lsp
View file @
208e78b2
...
...
@@ -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)
...
...
ansi-tests/mismatch.lsp
View file @
208e78b2
...
...
@@ -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"))
...
...
ansi-tests/nreverse.lsp
View file @
208e78b2
...
...
@@ -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)))
...
...
ansi-tests/nsubstitute-if-not.lsp
View file @
208e78b2
...
...
@@ -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)))
...
...
ansi-tests/nsubstitute-if.lsp
View file @
208e78b2
...
...
@@ -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)
...
...
ansi-tests/nsubstitute.lsp
View file @
208e78b2
...
...
@@ -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)
...
...
ansi-tests/position-if-not.lsp
View file @
208e78b2
...
...
@@ -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)
...
...
ansi-tests/position-if.lsp
View file @
208e78b2
...
...
@@ -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)
...
...
ansi-tests/position.lsp
View file @
208e78b2
...
...
@@ -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)
...
...
ansi-tests/reduce.lsp
View file @
208e78b2
...
...
@@ -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
...
...
ansi-tests/replace.lsp
View file @
208e78b2
...
...
@@ -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)))
...
...
ansi-tests/reverse.lsp
View file @
208e78b2
...
...
@@ -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)))
...
...
ansi-tests/search-string.lsp
View file @
208e78b2
...
...
@@ -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
...
...
ansi-tests/sort.lsp
View file @
208e78b2
...
...
@@ -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<))
...
...
ansi-tests/stable-sort.lsp
View file @
208e78b2
...
...
@@ -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<))
...
...
ansi-tests/string-left-trim.lsp
View file @
208e78b2
...
...
@@ -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)))
...
...
ansi-tests/string-right-trim.lsp
View file @
208e78b2
...
...
@@ -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)))
...
...
ansi-tests/string-trim.lsp
View file @
208e78b2
...
...
@@ -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)))
...
...
ansi-tests/subseq-aux.lsp
View file @
208e78b2
...
...
@@ -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)))
...
...
ansi-tests/substitute-if-not.lsp
View file @
208e78b2
...
...
@@ -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)))
...
...
ansi-tests/substitute-if.lsp
View file @
208e78b2
...
...
@@ -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")