Update of /project/ieeefp-tests/cvsroot/ieeefp-tests/ieee754 In directory common-lisp.net:/tmp/cvs-serv23125/ieee754 Modified Files: ieee754-sbcl.lisp Log Message: Add machinery for testing exceptions (disabled by default, enable using IEEEFP-TESTS:*TEST-EXCEPTIONS*). Include the original line in the generated test for slightly easier debugging. Date: Thu Jun 17 10:32:17 2004 Author: crhodes Index: ieeefp-tests/ieee754/ieee754-sbcl.lisp diff -u ieeefp-tests/ieee754/ieee754-sbcl.lisp:1.1 ieeefp-tests/ieee754/ieee754-sbcl.lisp:1.2 --- ieeefp-tests/ieee754/ieee754-sbcl.lisp:1.1 Mon Jun 7 15:16:30 2004 +++ ieeefp-tests/ieee754/ieee754-sbcl.lisp Thu Jun 17 10:32:17 2004 @@ -30,3 +30,5 @@ precision)) (apply #'sb-int:set-floating-point-modes args)) +(defun get-floating-point-modes () + (sb-int:get-floating-point-modes))