X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fprint.c;h=73ec03ba560e9c84ff37953a8c5d428a6aa6d582;hb=9fd95117be995b9e15a19aa182fafe4a489a4ac7;hp=394d781e4b375146deece354b1b516b2fc96f10b;hpb=d0ceeb45a7042703bfd9c6d4c335680a3c07a974;p=sbcl.git

diff --git a/src/runtime/print.c b/src/runtime/print.c
index 394d781..73ec03b 100644
--- a/src/runtime/print.c
+++ b/src/runtime/print.c
@@ -237,7 +237,8 @@ static void print_fixnum(lispobj obj)
 
 static void brief_otherimm(lispobj obj)
 {
-    int type, c, idx;
+    int type, c;
+    unsigned int idx;
     char buffer[10];
 
     type = widetag_of(obj);
@@ -288,7 +289,9 @@ static void brief_otherimm(lispobj obj)
 
 static void print_otherimm(lispobj obj)
 {
-    int type, idx;
+    int type;
+
+    unsigned int idx;
 
     type = widetag_of(obj);
     idx = type >> 2;
@@ -379,7 +382,7 @@ static void brief_struct(lispobj obj)
 static void print_struct(lispobj obj)
 {
     struct instance *instance = (struct instance *)native_pointer(obj);
-    int i;
+    unsigned int i;
     char buffer[16];
     print_obj("type: ", ((struct instance *)native_pointer(obj))->slots[0]);
     for (i = 1; i < HeaderValue(instance->header); i++) {
@@ -732,9 +735,9 @@ static void print_obj(char *prefix, lispobj obj)
 
     if (var == NULL &&
         ((obj & LOWTAG_MASK) == FUN_POINTER_LOWTAG ||
-	 (obj & LOWTAG_MASK) == LIST_POINTER_LOWTAG ||
-	 (obj & LOWTAG_MASK) == INSTANCE_POINTER_LOWTAG ||
-	 (obj & LOWTAG_MASK) == OTHER_POINTER_LOWTAG))
+         (obj & LOWTAG_MASK) == LIST_POINTER_LOWTAG ||
+         (obj & LOWTAG_MASK) == INSTANCE_POINTER_LOWTAG ||
+         (obj & LOWTAG_MASK) == OTHER_POINTER_LOWTAG))
         var = define_var(NULL, obj, 0);
 
     if (var != NULL)