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

[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  6c91244701c5867328a58c94d2118db6e09310d1 (commit)
      from  f86bc7e7f3c5b617a141ac5d0f32b5fc6b5e77d5 (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 6c91244701c5867328a58c94d2118db6e09310d1
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Tue Mar 8 08:56:13 2011 -0500

    For clisp, disable floating-point underflow when running tests.

diff --git a/rt-tests.lisp b/rt-tests.lisp
index f4e06c1..82ca0b7 100644
--- a/rt-tests.lisp
+++ b/rt-tests.lisp
@@ -25,6 +25,11 @@
 
 (in-package #:oct)
 
+;; For the tests, we need to turn off underflow for clisp.
+#+clisp
+(ext:without-package-lock ()
+  (setq sys::*inhibit-floating-point-underflow* t))
+
 ;; Compute how many bits are the same for two numbers EST and TRUE.
 ;; Return T if they are identical.
 (defun bit-accuracy (est true)

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

Summary of changes:
 rt-tests.lisp |    5 +++++
 1 files changed, 5 insertions(+), 0 deletions(-)


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