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

[rtoy]

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

Modified Files:
	qd-class.lisp 
Log Message:
Fix qd-complex printer so it prints out something that is readable.


--- /project/oct/cvsroot/oct/qd-class.lisp	2007/08/31 21:13:36	1.24
+++ /project/oct/cvsroot/oct/qd-class.lisp	2007/09/06 02:58:38	1.25
@@ -67,7 +67,7 @@
   (make-instance 'qd-real :value (qd-value x)))
 
 (defmethod print-object ((qd qd-complex) stream)
-  (format stream "#q(~<~/qdi::qd-format/ ~/qdi::qd-format/~:@>)"
+  (format stream "#q(~<#q~/qdi::qd-format/ #q~/qdi::qd-format/~:@>)"
 	  (list (qd-real qd)
 		(qd-imag qd))))