[oct-scm] [oct-git]OCT: A portable Lisp implementation for quad-double precision floats branch master updated. c014c5f4e4b941aacf16a897a2cf689ed49b37ef

[Raymond Toy]

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