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