Changeset 172

Timestamp:

Jan 3, 2004, 11:35:48 AM (21 years ago)

Author:

Gary Byers

Message:

Print MACPTRs, get method names/specializers half-right.

File:

• trunk/ccl/lisp-kernel/ppc_print.c (modified) (3 diffs)

trunk/ccl/lisp-kernel/ppc_print.c

@@ -127 +127 @@
       the_car = car(o);
       if (fulltag_of(the_car) == fulltag_misc) {
-        sprint_lisp_object(deref(the_car, 2), depth);
+        sprint_lisp_object(deref(deref(the_car,3), 4), depth);
       } else {
         sprint_lisp_object(the_car, depth);
@@ -199 +199 @@
     if (lfbits & lfbits_method_mask) {
       LispObj 
-        method_name = deref(name, 6),
-        method_qualifiers = deref(name, 2),
-        method_specializers = deref(name, 3);
+        slot_vector = deref(name,3),
+        method_name = deref(slot_vector, 6),
+        method_qualifiers = deref(slot_vector, 2),
+        method_specializers = deref(slot_vector, 3);
       add_c_string("Method-Function ");
       sprint_lisp_object(method_name, depth);
@@ -298 +299 @@
     
   case subtag_double_float:
-    /* Probably won't work: emulated code is using SANE. */
-    break;
-  }
-  
-  sprint_random_vector(o, subtag, elements);
+    break;
+
+  case subtag_macptr:
+    add_c_string("#<MACPTR ");
+    sprint_unsigned_hex(deref(o,1));
+    add_c_string(">");
+    break;
+
+  default:
+    sprint_random_vector(o, subtag, elements);
+  }
 }