diff --git a/ldb/print.c b/ldb/print.c index 26bb0aaf13eb170f461d7ec5971ef29f19207ba0..39f8db9c1f08e568a72e605640bdd3f3a8514598 100644 --- a/ldb/print.c +++ b/ldb/print.c @@ -1,4 +1,4 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/print.c,v 1.2 1990/02/26 19:11:04 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/print.c,v 1.3 1990/02/28 18:26:09 wlott Exp $ */ #include <stdio.h> #include "ldb.h" @@ -124,7 +124,7 @@ lispobj obj; printf(", %s", subtype_Names[TypeOf(obj)>>3]); switch (TypeOf(obj)) { - case type_Character: + case type_BaseCharacter: printf(": font=0x%x, bits=0x%x, char=0x%x", (obj>>24)&0xff, (obj>>16)&0xff, c = ((obj>>8)&0xff)); if (c >= ' ' && c <= '~') printf(" (%c)", c); @@ -198,7 +198,7 @@ lispobj obj; char *cptr, buffer[16]; print_obj("header: ", header); - if (LowtagOf(header) != type_OtherImmediate) { + if (LowtagOf(header) != type_OtherImmediate0 && LowtagOf(header) != type_OtherImmediate1) { NEWLINE; printf("(invalid header object)"); return; @@ -291,7 +291,7 @@ lispobj obj; printf("0x%08x", *ptr); break; - case type_Character: + case type_BaseCharacter: case type_UnboundMarker: NEWLINE; printf("pointer to an immediate?\n");