[Openmcl-cvs-notifications] r14447 - /trunk/source/lib/numbers.lisp

[rme at clozure.com]

Author: rme
Date: Mon Nov 22 16:56:53 2010
New Revision: 14447

Log:
Use the correct bits.

Modified:
    trunk/source/lib/numbers.lisp

Modified: trunk/source/lib/numbers.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/numbers.lisp (original)
+++ trunk/source/lib/numbers.lisp Mon Nov 22 16:56:53 2010
@@ -48,7 +48,7 @@
 	(ccl:set-fpu-mode :division-by-zero division-by-zero))))
 =

 (defconstant double-float-nan
-  #.(make-float-from-fixnums #x8000 0 #x3ff 1))
+  #.(make-float-from-fixnums #x8000 0 #x7ff 1))
 =

 (defun parse-float (str len off)  =

   ; we cant assume this really is a float but dont call with eg s1 or e1