From 89c20a884598d96f7dcce80f37c63a31806a7cc3 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 28 Feb 1990 18:26:09 +0000
Subject: [PATCH] Changed references to type_Character to type_BaseCharacter.
 Changed type_OtherImmediate to type_OtherImmediate[01].

---
 ldb/print.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ldb/print.c b/ldb/print.c
index 26bb0aaf1..39f8db9c1 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");
-- 
GitLab