Update of /project/ieeefp-tests/cvsroot/ieeefp-tests In directory common-lisp.net:/tmp/cvs-serv26648 Modified Files: ieeefp-tests.lisp Log Message: Oops. Fix typo. Date: Tue Jun 15 15:55:08 2004 Author: rtoy Index: ieeefp-tests/ieeefp-tests.lisp diff -u ieeefp-tests/ieeefp-tests.lisp:1.7 ieeefp-tests/ieeefp-tests.lisp:1.8 --- ieeefp-tests/ieeefp-tests.lisp:1.7 Tue Jun 15 15:51:19 2004 +++ ieeefp-tests/ieeefp-tests.lisp Tue Jun 15 15:55:08 2004 @@ -96,7 +96,7 @@ 1) (defconstant +least-negative-double-float+ #x8000000000000001) - (defconstant +least-positive-single-float+ + (defconstant +least-negative-single-float+ #x80000001) (defconstant +least-positive-normalized-double-float+ #x10000000000000) @@ -445,7 +445,7 @@ (dolist (type *float-types*) (pushnew (make-one-test-file fun type) *test-files* :test #'equal))) -(defvar *revision* "$Revision: 1.7 $") +(defvar *revision* "$Revision: 1.8 $") (defun format-date (stream arg colonp atp) (declare (ignore colonp atp))