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