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