From 766431198df5ff2a13629eb0a2cc146bb3acd80c Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Fri, 11 Jun 2004 13:11:23 +0000
Subject: [PATCH] Fixed problem in array printing tests with complex element
 types observed by SH and DR.

---
 ansi-tests/print-array.lsp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ansi-tests/print-array.lsp b/ansi-tests/print-array.lsp
index 4b98503c..5f74ff67 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))
-- 
GitLab