[Openmcl-cvs-notifications] r8987 - /trunk/source/level-0/l0-pred.lisp

[gb at clozure.com]

Author: gb
Date: Wed Apr  2 04:12:08 2008
New Revision: 8987

Log:
Propagate (small) improvement to REALP from working-0711 to trunk.

Modified:
    trunk/source/level-0/l0-pred.lisp

Modified: trunk/source/level-0/l0-pred.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/level-0/l0-pred.lisp (original)
+++ trunk/source/level-0/l0-pred.lisp Wed Apr  2 04:12:08 2008
@@ -129,7 +129,7 @@
                        (ash 1 ppc64::subtag-bignum)
                        (ash 1 ppc64::subtag-ratio))))
     #+x8664-target
-    (if (< typecode x8664::nbits-in-word)
+    (if (<=3D typecode x8664::subtag-double-float)
       (logbitp (the (integer 0 #.x8664::subtag-double-float) typecode)
                (logior (ash 1 x8664::tag-fixnum)
                        (ash 1 x8664::subtag-bignum)