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 c014c5f4e4b941aacf16a897a2cf689ed49b37ef (commit) from 535d2509c2974c113e6c1bfa27ece5d5b8f99bd1 (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 c014c5f4e4b941aacf16a897a2cf689ed49b37ef Author: Raymond Toy <toy.raymond@gmail.com> Date: Sun Mar 6 21:47:26 2011 -0500 Oops. Can't use #q yet,so change #q1 to (make-qd-d 1d0). diff --git a/qd-methods.lisp b/qd-methods.lisp index 3af7bd0..205c9fe 100644 --- a/qd-methods.lisp +++ b/qd-methods.lisp @@ -1105,7 +1105,7 @@ underlying floating-point format" ;; a quad-double. For most purposes we want epsilon to be close to ;; the 212 bits of precision (4*53 bits) that we normally have with ;; a quad-double. - (scale-float #q1 -212)) + (scale-float (make-qd-d 1d0) -212)) (defmethod epsilon ((m qd-complex)) (epsilon (realpart m))) ----------------------------------------------------------------------- Summary of changes: qd-methods.lisp | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) hooks/post-receive -- OCT: A portable Lisp implementation for quad-double precision floats