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

Raymond Toy rtoy at common-lisp.net
Sat Mar 24 02:26:31 UTC 2012


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  dd5c2a4a6628648c5fe9a7eec98c82a9d284daa3 (commit)
       via  41f1ca3edadee2d6e00ba7dc287ea66d92897ca6 (commit)
      from  d80256d66d585a69813f277b115d039cc620e62d (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 dd5c2a4a6628648c5fe9a7eec98c82a9d284daa3
Author: Raymond Toy <rtoy at google.com>
Date:   Fri Mar 23 19:10:16 2012 -0700

    Need to take ABS before testing for 1/2.

diff --git a/qd-gamma.lisp b/qd-gamma.lisp
index b233fab..f0e2418 100644
--- a/qd-gamma.lisp
+++ b/qd-gamma.lisp
@@ -812,7 +812,7 @@
 		    ;; cot(%pi*z), carefully.  If z is an odd multiple
 		    ;; of 1/2, cot is 0.
 		    (if (and (realp z)
-			     (= 1/2 (- z (ftruncate z))))
+			     (= 1/2 (abs (- z (ftruncate z)))))
 			(float 0 z)
 			(/ (tan (* p z))))))
 	     (- (psi (- 1 z))

commit 41f1ca3edadee2d6e00ba7dc287ea66d92897ca6
Author: Raymond Toy <rtoy at google.com>
Date:   Fri Mar 23 19:05:24 2012 -0700

    Oops.  Need to take the realpart before call FLOAT-NAN-P.

diff --git a/rt-tests.lisp b/rt-tests.lisp
index d526af7..8732e28 100644
--- a/rt-tests.lisp
+++ b/rt-tests.lisp
@@ -54,7 +54,7 @@
 (defun check-accuracy (limit est true)
   (let ((bits (bit-accuracy est true)))
     (if (not (eq bits t))
-	(if (and (not (float-nan-p est))
+	(if (and (not (float-nan-p (realpart est)))
 		 (not (float-nan-p bits))
 		 (< bits limit))
 	    (list bits limit est true)))))

-----------------------------------------------------------------------

Summary of changes:
 qd-gamma.lisp |    2 +-
 rt-tests.lisp |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
OCT:  A portable Lisp implementation for quad-double precision floats




More information about the oct-cvs mailing list