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

[Raymond Toy]

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