From 8932f44ee247e5302c57beb9581793ebabcdac62 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Wed, 12 Jul 2006 18:42:40 +0000 Subject: [PATCH] The subtype_Names array had one extra slot, so that closure_function_header and the following entries were not correct. Also, rename unused function header 1 and 2 to be "byte code function" and "byte code closure", respectively, since that's what internals.h says. We really need to generate this list during genesis or something instead of having to do this by hand! --- lisp/print.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/print.c b/lisp/print.c index 0ee2dfc06..9af86e427 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.21 2006/06/30 18:41:32 rtoy Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.22 2006/07/12 18:42:40 rtoy Exp $ */ #include <stdio.h> #include <string.h> @@ -105,9 +105,9 @@ char *subtype_Names[] = { "function header", "closure header", "funcallable-instance header", - "unused function header 1", - "unused function header 2", - "unused function header 3", + "byte code function", + "byte code closure", +/* "unused function header 3",*/ "closure function header", "return PC header", "value cell header", -- GitLab