- if (TypeOf(obj) == type_SimpleFunHeader) {
- print((long)addr | type_FunPointer);
- } else if (LowtagOf(obj) == type_OtherImmediate0 ||
- LowtagOf(obj) == type_OtherImmediate1) {
- print((lispobj)addr | type_OtherPointer);
+ if (widetag_of(obj) == SIMPLE_FUN_HEADER_WIDETAG) {
+ print((long)addr | FUN_POINTER_LOWTAG);
+ } else if (lowtag_of(obj) == OTHER_IMMEDIATE_0_LOWTAG ||
+ lowtag_of(obj) == OTHER_IMMEDIATE_1_LOWTAG) {
+ print((lispobj)addr | OTHER_POINTER_LOWTAG);