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