Commit 499f271d authored by pfdietz's avatar pfdietz
Browse files

fixup of array printing tests

parent 720f651f
......@@ -87,7 +87,7 @@
(deftest print.array.0.12
(loop for type0 in '(short-float single-float double-float long-float float)
for type = `(complex ,type0)
for zero = (coerce 0 type)
for zero = (complex (coerce 0 type0))
for a = (make-array nil :initial-element zero
:element-type type)
nconc
......@@ -133,7 +133,7 @@
long-float float real)
for type = `(complex ,type0)
for a = (make-array nil :element-type type
:initial-element (coerce 3 type))
:initial-element (complex (coerce 3 type0)))
for result = (write-to-string a :readably nil :array nil)
unless (string= (subseq result 0 2) "#<")
collect (list i result))
......
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