- if (TypeOf(obj) == type_FunctionHeader)
- print((long)addr | type_FunctionPointer);
- else if (LowtagOf(obj) == type_OtherImmediate0 || LowtagOf(obj) == type_OtherImmediate1)
- print((lispobj)addr | type_OtherPointer);
- else
+ 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);
+ } else {