From 625f8f150adeca34c7aeefad73fab400a456f489 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Wed, 3 Jun 1998 02:24:11 +0000
Subject: [PATCH] Print the slots of funcallable-instances.

---
 lisp/print.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/print.c b/lisp/print.c
index 26104c503..339c808ad 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.8 1998/03/21 08:15:00 dtc Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.9 1998/06/03 02:24:11 dtc Exp $ */
 #include <stdio.h>
 
 #include "print.h"
@@ -387,6 +387,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 *funcallable_instance_slots[] = {"fn: ", "lexenv: ", "layout: ", NULL};
 static char *weak_pointer_slots[] = {"value: ", NULL};
 static char *fdefn_slots[] = {"name: ", "function: ", "raw_addr: ", NULL};
 static char *value_cell_slots[] = {"value: ", NULL};
@@ -571,6 +572,10 @@ static void print_otherptr(lispobj obj)
                 print_slots(closure_slots, count, ptr);
                 break;
 
+            case type_FuncallableInstanceHeader:
+                print_slots(funcallable_instance_slots, count, ptr);
+                break;
+
             case type_ValueCellHeader:
 		print_slots(value_cell_slots, 1, ptr);
                 break;
-- 
GitLab