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
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment