Changeset 11063


Ignore:
Timestamp:
Oct 12, 2008, 9:54:30 AM (11 years ago)
Author:
gb
Message:

In x8632 version of %TYPE-OF, use (FULLTAG THING) to differentiate
between TRAs and lists.

File:
1 edited

Legend:

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

    r10870 r11063  
    768768      'fixnum
    769769      (if (= typecode x8632::tag-list)  ;a misnomer on x8632...
    770         (if (= typecode x8632::fulltag-cons)
     770        (if (= (fulltag thing) x8632::fulltag-cons)
    771771          (if thing 'cons 'null)
    772772          'tagged-return-address)
Note: See TracChangeset for help on using the changeset viewer.