[ieeefp-tests-cvs] CVS update: ieeefp-tests/ieee754/ieee754-sbcl.lisp

[Christophe Rhodes]

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