From fe8161b21c67dfd8baf71178e632a0e9ac61d00c Mon Sep 17 00:00:00 2001
From: ch <ch>
Date: Sun, 13 May 1990 22:49:09 +0000
Subject: [PATCH] Added code to print weak pointers.

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

diff --git a/ldb/print.c b/ldb/print.c
index 1145a308d..4cefd3e39 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.10 1990/05/10 17:48:34 wlott Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/print.c,v 1.11 1990/05/13 22:49:09 ch Exp $ */
 #include <stdio.h>
 
 #include "ldb.h"
@@ -59,7 +59,8 @@ char *subtype_Names[] = {
     "symbol header",
     "character",
     "SAP",
-    "unbound marker"
+    "unbound marker",
+    "weak pointer"
 };
 
 static void indent(in)
@@ -337,6 +338,7 @@ static char *complex_slots[] = {"real: ", "imag: ", NULL};
 static char *code_slots[] = {"words: ", "entry: ", "debug: ", NULL};
 static char *fn_slots[] = {"self: ", "next: ", "name: ", "arglist: ", "type: ", NULL};
 static char *closure_slots[] = {"fn: ", NULL};
+static char *weak_pointer_slots[] = {"value: ", NULL};
 
 static void print_otherptr(obj)
 lispobj obj;
@@ -457,6 +459,10 @@ lispobj obj;
                 printf("0x%08x", *ptr);
                 break;
 
+            case type_WeakPointer:
+		print_slots(weak_pointer_slots, 1, ptr);
+                break;
+
             case type_BaseCharacter:
             case type_UnboundMarker:
                 NEWLINE;
-- 
GitLab