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)