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