X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fprint.c;h=73ec03ba560e9c84ff37953a8c5d428a6aa6d582;hb=6127c0b282bb6d7fa6d225ee91d0a601d9b82360;hp=f448e519811f595c9bbaa58f06a98ba3f5af77fe;hpb=be66f39b89fd11c0abea5697a6e666447df988a8;p=sbcl.git

diff --git a/src/runtime/print.c b/src/runtime/print.c
index f448e51..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++) {