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

[Raymond Toy]

Update of /project/ieeefp-tests/cvsroot/ieeefp-tests/ieee754
In directory common-lisp.net:/tmp/cvs-serv10146/ieee754

Modified Files:
	ieee754-cmucl.lisp 
Log Message:
Add get-floating-point-modes.

Date: Thu Aug 25 18:43:43 2005
Author: rtoy

Index: ieeefp-tests/ieee754/ieee754-cmucl.lisp
diff -u ieeefp-tests/ieee754/ieee754-cmucl.lisp:1.3 ieeefp-tests/ieee754/ieee754-cmucl.lisp:1.4
--- ieeefp-tests/ieee754/ieee754-cmucl.lisp:1.3	Thu Jun 17 19:45:50 2004
+++ ieeefp-tests/ieee754/ieee754-cmucl.lisp	Thu Aug 25 18:43:41 2005
@@ -30,6 +30,9 @@
 		   precision))
   (apply #'ext:set-floating-point-modes args))
 
+(defun get-floating-point-modes ()
+  (ext:get-floating-point-modes))
+
 
 ;;; IEEE754 recommended functions