diff --git a/ansi-tests/fill.lsp b/ansi-tests/fill.lsp index 30d1a5c8437c576788a97d86244f8cd04df89e5e..3259d5843a524022c80e7d6b87632796539465b3 100644 --- a/ansi-tests/fill.lsp +++ b/ansi-tests/fill.lsp @@ -298,7 +298,7 @@ (deftest fill.string.9 (let* ((s1 (make-array '(8) :element-type 'character - :initial-element #\a + :initial-element #\z :fill-pointer 4)) (s2 (fill s1 #\a))) (and (eqt s1 s2) @@ -308,7 +308,7 @@ (deftest fill.string.10 (let* ((s1 (make-array '(8) :element-type 'base-char - :initial-element #\a + :initial-element #\z :fill-pointer 4)) (s2 (fill s1 #\a))) (and (eqt s1 s2)