From c8d40df5ab85af7122bb81f254a87784cc2d029e Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 3 Nov 2002 12:20:31 +0000 Subject: [PATCH] Fixed bigs in FILL tests that were causing spurious failures. There are no problems with FILL as previously reported. --- ansi-tests/fill.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ansi-tests/fill.lsp b/ansi-tests/fill.lsp index 30d1a5c8..3259d584 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) -- GitLab