Changeset 397

Timestamp:

Jan 25, 2004, 2:10:05 PM (21 years ago)

Author:

Gary Byers

Message:

MACPTRs may say what they're pointing to, though this idea is hard to
bootstrap.

File:

• trunk/ccl/level-1/l1-io.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-io.lisp

@@ -1488 +1488 @@
 
 (defun write-a-macptr (macptr stream)
-  (let ((null (%null-ptr-p macptr)))
+  (let* ((null (%null-ptr-p macptr))
+         (ftype (%macptr-ftype macptr))
+         (ftype-info (if ftype (unparse-foreign-type ftype))))
     (print-unreadable-object (macptr stream)
       (if null
-        (%write-string "A Null Mac Pointer" stream)
+        (progn
+          (%write-string "A Null Mac Pointer" stream)
+          (when ftype-info
+            (format stream " to foreign type ~s" ftype-info)))
         (progn
           (pp-start-block stream "A Mac Pointer")
           (%write-macptr-termination-info macptr stream)
+          (when ftype-info
+            (format stream " to foreign type ~s at" ftype-info))
           (stream-write-char stream #\ )
           (write-an-integer (%ptr-to-int macptr) stream 16. t))))))