From fc5b74538a85920db46e854b6b5666c12ead8b44 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Mon, 7 Feb 2005 22:18:35 +0000 Subject: [PATCH] Symbols use the unused slot for a hash value now. --- lisp/print.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/print.c b/lisp/print.c index 51de133c8..e7c122726 100644 --- a/lisp/print.c +++ b/lisp/print.c @@ -1,4 +1,4 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.17 2005/02/07 22:10:07 rtoy Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.18 2005/02/07 22:18:35 rtoy Exp $ */ #include <stdio.h> #include <string.h> @@ -381,7 +381,7 @@ static void print_slots(char **slots, int count, lispobj *ptr) print_obj("???: ", *ptr++); } -static char *symbol_slots[] = {"value: ", "unused: ", +static char *symbol_slots[] = {"value: ", "hash: ", "plist: ", "name: ", "package: ", NULL}; static char *ratio_slots[] = {"numer: ", "denom: ", NULL}; static char *complex_slots[] = {"real: ", "imag: ", NULL}; -- GitLab