This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "OCT: A portable Lisp implementation for quad-double precision floats". The branch, master has been updated via 25a15317f76cba7a1c38341edf5a418020e9b477 (commit) from 3d2184f115538262f60b359249d76fb1c4c7048d (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 25a15317f76cba7a1c38341edf5a418020e9b477 Author: Raymond Toy <toy.raymond@gmail.com> Date: Mon Mar 7 15:48:05 2011 -0500 Clean up printing and fix printing bug in non-cmucl. Clisp was printing #q(1 2) as #q(#q#q1 #q#q2). This is caused by PRINT-OBJECT for QD-COMPLEX printing a #q in addition to a #q printed by QD-FORMAT. qd-class.lisp: o Use the same PRINT-OBJECT method for qd-real for all Lisps. o Remove extraneous #q from PRINT-OBJECT method for qd-complex. qd-io.lisp: o QD-FORMAT for cmucl needs to output #q. diff --git a/qd-class.lisp b/qd-class.lisp index 5cc3cb4..2134ef7 100644 --- a/qd-class.lisp +++ b/qd-class.lisp @@ -47,21 +47,9 @@ :type %quad-double)) (:documentation "Complex number consisting of QUAD-DOUBLE components")) -#-cmu (defmethod print-object ((qd qd-real) stream) (format stream "~/octi::qd-format/" (qd-value qd))) -#+cmu -(defun print-qd (q stream) - (declare (type %quad-double q)) - (if (or (float-infinity-p (qd-0 q)) - (float-nan-p (qd-0 q))) - (format stream "~/octi::qd-format/" q) - (format stream "#q~/octi::qd-format/" q))) -#+cmu -(defmethod print-object ((qd qd-real) stream) - (print-qd (qd-value qd) stream)) - (defmethod make-qd ((x cl:float)) (make-instance 'qd-real :value (make-qd-d (float x 1d0)))) @@ -69,7 +57,7 @@ (make-instance 'qd-real :value (qd-value x))) (defmethod print-object ((qd qd-complex) stream) - (format stream "#q(~<#q~/octi::qd-format/ #q~/octi::qd-format/~:@>)" + (format stream "#q(~<~/octi::qd-format/ ~/octi::qd-format/~:@>)" (list (qd-real qd) (qd-imag qd)))) diff --git a/qd-io.lisp b/qd-io.lisp index 1df662e..40d7c90 100644 --- a/qd-io.lisp +++ b/qd-io.lisp @@ -303,6 +303,7 @@ ((ext:float-nan-p (qd-0 arg)) (qd-output-nan arg stream)) (t + (write-string "#q" stream) (qd-output-aux arg stream)))) ;; This version has problems with roundoff. ----------------------------------------------------------------------- Summary of changes: qd-class.lisp | 14 +------------- qd-io.lisp | 1 + 2 files changed, 2 insertions(+), 13 deletions(-) hooks/post-receive -- OCT: A portable Lisp implementation for quad-double precision floats