diff --git a/ansi-tests/string-left-trim.lsp b/ansi-tests/string-left-trim.lsp index 82ed7e65019bf85ed01f925fa955f7b36298d182..90354aef0e662abdd7dafc1e5d2994f7b1e1fb80 100644 --- a/ansi-tests/string-left-trim.lsp +++ b/ansi-tests/string-left-trim.lsp @@ -63,7 +63,7 @@ (deftest string-left-trim.8 (let* ((s (copy-seq "abcdaba")) - (s2 (string-left-trim (make-array 2 :initial-contents '(#\a #\b #\c #\d) + (s2 (string-left-trim (make-array 4 :initial-contents '(#\a #\b #\c #\d) :element-type 'character :fill-pointer 2) s))) diff --git a/ansi-tests/string-right-trim.lsp b/ansi-tests/string-right-trim.lsp index 2f53f0c8110143988028601b3a86c15bcfbbc095..7d2d6075f71962705f220fca1362f54d85914b82 100644 --- a/ansi-tests/string-right-trim.lsp +++ b/ansi-tests/string-right-trim.lsp @@ -63,7 +63,7 @@ (deftest string-right-trim.8 (let* ((s (copy-seq "abcdaba")) - (s2 (string-right-trim (make-array 2 :initial-contents '(#\a #\b #\c #\d) + (s2 (string-right-trim (make-array 4 :initial-contents '(#\a #\b #\c #\d) :element-type 'character :fill-pointer 2) s))) diff --git a/ansi-tests/string-trim.lsp b/ansi-tests/string-trim.lsp index a71e7a75fadfc157b550745174897e91d009bc77..ae169c7ab1098c27385495f3523935e36b4a1ee2 100644 --- a/ansi-tests/string-trim.lsp +++ b/ansi-tests/string-trim.lsp @@ -63,7 +63,7 @@ (deftest string-trim.8 (let* ((s (copy-seq "abcdaba")) - (s2 (string-trim (make-array 2 :initial-contents '(#\a #\b #\c #\d) + (s2 (string-trim (make-array 4 :initial-contents '(#\a #\b #\c #\d) :element-type 'character :fill-pointer 2) s)))