diff --git a/ansi-tests/print-array.lsp b/ansi-tests/print-array.lsp index 4b98503cf6b8b702e638b3df14d87da9faf5f1e4..5f74ff67b1ffeafb98de28d4eb703bb8f63dd201 100644 --- a/ansi-tests/print-array.lsp +++ b/ansi-tests/print-array.lsp @@ -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 = (complex (coerce 0 type0)) + for zero = (complex (coerce 0.0s0 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 (complex (coerce 3 type0))) + :initial-element (complex 0 (coerce 3 type0))) for result = (write-to-string a :readably nil :array nil) unless (string= (subseq result 0 2) "#<") collect (list type result)) @@ -391,7 +391,7 @@ long-float float real) for type = `(complex ,type0) for a = (make-array '(13 5) :element-type type - :initial-element (complex (coerce 3 type0))) + :initial-element (complex 0 (coerce 3 type0))) for result = (write-to-string a :readably nil :array nil) unless (string= (subseq result 0 2) "#<") collect (list type result))