[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-serv545

Modified Files:
	ieee754-cmucl.lisp 
Log Message:
Misinterpreted what "after X in the direction of Y" meant.  Fix it.
It means adjust X to be closer to Y.  (Noted by Christophe.)

Date: Thu Jun 17 10:45:50 2004
Author: rtoy

Index: ieeefp-tests/ieee754/ieee754-cmucl.lisp
diff -u ieeefp-tests/ieee754/ieee754-cmucl.lisp:1.2 ieeefp-tests/ieee754/ieee754-cmucl.lisp:1.3
--- ieeefp-tests/ieee754/ieee754-cmucl.lisp:1.2	Wed Jun 16 19:59:42 2004
+++ ieeefp-tests/ieee754/ieee754-cmucl.lisp	Thu Jun 17 10:45:50 2004
@@ -81,7 +81,7 @@
 		  (double-float -1022)))))))
 
 (defun nextafter (x y)
-  "The next double float after X in the direction of Y, with the
+  "The next float after X in the direction of Y, with the
 following exceptions:
 
   X = Y                 returns X, unchanged
@@ -101,7 +101,7 @@
 	(t
 	 (multiple-value-bind (f e s)
 	     (integer-decode-float x)
-	   (if (>= y 0)
+	   (if (>= y x)
 	       (incf f)
 	       (decf f))
 	   (* s (scale-float (float f x) e))))))