Changeset 8987 for trunk/source/level-0/l0-pred.lisp

Timestamp:

Apr 2, 2008, 8:12:08 AM (13 years ago)

Author:

gb

Message:

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

File:

• trunk/source/level-0/l0-pred.lisp (modified) (1 diff)

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

@@ -130 +130 @@
                        (ash 1 ppc64::subtag-ratio))))
     #+x8664-target
-    (if (< typecode x8664::nbits-in-word)
+    (if (<= typecode x8664::subtag-double-float)
       (logbitp (the (integer 0 #.x8664::subtag-double-float) typecode)
                (logior (ash 1 x8664::tag-fixnum)