Changeset 8969


Ignore:
Timestamp:
Mar 30, 2008, 11:23:31 PM (11 years ago)
Author:
gb
Message:

Fix REALP check on x8664.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-0/l0-pred.lisp

    r7724 r8969  
    130130                       (ash 1 ppc64::subtag-ratio))))
    131131    #+x8664-target
    132     (if (< typecode x8664::nbits-in-word)
     132    (if (<= typecode x8664::subtag-double-float)
    133133      (logbitp (the (integer 0 #.x8664::subtag-double-float) typecode)
    134134               (logior (ash 1 x8664::tag-fixnum)
Note: See TracChangeset for help on using the changeset viewer.