Changeset 14120


Ignore:
Timestamp:
Aug 5, 2010, 8:15:52 AM (9 years ago)
Author:
gb
Message:

Un-botch NUMBERP/REALP on platforms that don't define target::max-real-subtag/
target::max-numeric-subtag.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-pred.lisp

    r14119 r14120  
    115115  (let* ((typecode (typecode x)))
    116116    (declare (fixnum typecode))
    117     (and (<= typecode target::max-real-subtag)
    118          (logbitp (the (integer 0 #.target::max-real-subtag)
     117    (and (< typecode (- target::nbits-in-word target::fixnumshift))
     118         (logbitp (the (integer 0 (#.(- target::nbits-in-word target::fixnumshift)))
    119119                    typecode)
    120120                  (logior (ash 1 target::tag-fixnum)
     
    133133  (let* ((typecode (typecode x)))
    134134    (declare (fixnum typecode))
    135     (and (<= typecode target::max-numeric-subtag)
    136          (logbitp (the (integer 0 #.target::max-numeric-subtag)
     135    (and (< typecode (- target::nbits-in-word target::fixnumshift))
     136         (logbitp (the (integer 0 (#.(- target::nbits-in-word target::fixnumshift)))
    137137                    typecode)
    138138                  (logior (ash 1 target::tag-fixnum)
Note: See TracChangeset for help on using the changeset viewer.