Skip to content
Snippets Groups Projects
Commit c8d40df5 authored by pfdietz's avatar pfdietz
Browse files

Fixed bigs in FILL tests that were causing spurious failures. There are no...

Fixed bigs in FILL tests that were causing spurious failures.  There are no problems with FILL as previously reported.
parent 2417ce71
Branches
Tags
No related merge requests found
...@@ -298,7 +298,7 @@ ...@@ -298,7 +298,7 @@
(deftest fill.string.9 (deftest fill.string.9
(let* ((s1 (make-array '(8) :element-type 'character (let* ((s1 (make-array '(8) :element-type 'character
:initial-element #\a :initial-element #\z
:fill-pointer 4)) :fill-pointer 4))
(s2 (fill s1 #\a))) (s2 (fill s1 #\a)))
(and (eqt s1 s2) (and (eqt s1 s2)
...@@ -308,7 +308,7 @@ ...@@ -308,7 +308,7 @@
(deftest fill.string.10 (deftest fill.string.10
(let* ((s1 (make-array '(8) :element-type 'base-char (let* ((s1 (make-array '(8) :element-type 'base-char
:initial-element #\a :initial-element #\z
:fill-pointer 4)) :fill-pointer 4))
(s2 (fill s1 #\a))) (s2 (fill s1 #\a)))
(and (eqt s1 s2) (and (eqt s1 s2)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment