fixup of array printing tests

(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

				   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))