From 5069c7dc3038a632b069f60db75346fb529bb509 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 21 Sep 1990 06:04:12 +0000 Subject: [PATCH] Updated re new symbol slots and new function header types. ,. --- ldb/print.c | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/ldb/print.c b/ldb/print.c index 4cefd3e39..cc47e2cd0 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.11 1990/05/13 22:49:09 ch Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/print.c,v 1.12 1990/09/21 06:04:12 wlott Exp $ */ #include <stdio.h> #include "ldb.h" @@ -52,9 +52,13 @@ char *subtype_Names[] = { "array", "code header", "function header", + "closure header", + "funcallable-instance header", + "unused function header 1", + "unused function header 2", + "unused function header 3", "closure function header", "return PC header", - "closure header", "value cell header", "symbol header", "character", @@ -332,7 +336,8 @@ long *ptr; print_obj("???: ", *ptr++); } -static char *symbol_slots[] = {"value: ", "function: ", "plist: ", "name: ", "package: ", NULL}; +static char *symbol_slots[] = {"value: ", "function: ", "raw fn addr: ", +"setf fn: ", "plist: ", "name: ", "package: ", NULL}; static char *ratio_slots[] = {"numer: ", "denom: ", NULL}; static char *complex_slots[] = {"real: ", "imag: ", NULL}; static char *code_slots[] = {"words: ", "entry: ", "debug: ", NULL}; -- GitLab