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

Modified Files: ieee754-abcl.lisp Log Message: The package name is "IEEEFP-TESTS", not "IEEE754-TESTS". Date: Tue Jun 15 12:58:31 2004 Author: pgraves

Index: ieeefp-tests/ieee754/ieee754-abcl.lisp diff -u ieeefp-tests/ieee754/ieee754-abcl.lisp:1.2 ieeefp-tests/ieee754/ieee754-abcl.lisp:1.3 --- ieeefp-tests/ieee754/ieee754-abcl.lisp:1.2 Tue Jun 15 06:55:08 2004 +++ ieeefp-tests/ieee754/ieee754-abcl.lisp Tue Jun 15 12:58:31 2004 @@ -1,8 +1,8 @@ (in-package "IEEE754-INTERNALS")

-(defvar ieee754-tests:*float-types* (list :double)) +(defvar ieeefp-tests:*float-types* (list :double))

-(defvar ieee754-tests:*rounding-modes* (list :nearest)) +(defvar ieeefp-tests:*rounding-modes* (list :nearest))

(defun make-single-float (x) (error "Not supported."))