Commit c8d40df5 authored by pfdietz's avatar pfdietz

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
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment