[oct-cvs] Oct commit: oct qd-class.lisp

[rtoy]

Update of /project/oct/cvsroot/oct
In directory clnet:/tmp/cvs-serv12848

Modified Files:
	qd-class.lisp 
Log Message:
Change QD-COMPLEX printer to split the real and imaginary parts onto
separate lines if necessary.


--- /project/oct/cvsroot/oct/qd-class.lisp	2007/08/27 19:12:22	1.22
+++ /project/oct/cvsroot/oct/qd-class.lisp	2007/08/30 23:41:10	1.23
@@ -67,10 +67,11 @@
   (make-instance 'qd-real :value (qd-value x)))
 
 (defmethod print-object ((qd qd-complex) stream)
-  (format stream "#q(~/qdi::qd-format/ ~/qdi::qd-format/)"
-	  (qd-real qd)
-	  (qd-imag qd)))
+  (format stream "#q(~<~/qdi::qd-format/ ~/qdi::qd-format/~:@>)"
+	  (list (qd-real qd)
+		(qd-imag qd))))
 
+#+(or)
 (defmethod print-object ((qd qd-complex) stream)
   (write-string "#q(" stream)
   (print-qd (qd-real qd) stream)