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

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