From 635de3233e5c15c753c5afb075a8e8490149c1a0 Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Sun, 15 Jan 2017 08:48:46 -0500 Subject: [PATCH] Fix print_otherptr() on simple fun --- src/runtime/print.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/runtime/print.c b/src/runtime/print.c index 610d6beb1..20780b953 100644 --- a/src/runtime/print.c +++ b/src/runtime/print.c @@ -595,7 +595,7 @@ static char *code_slots[] = {"bytes: ", "debug: ", "n_entries: ", #endif NULL}; -static char *fn_slots[] = { +static char *simple_fun_slots[] = { "self: ", "name: ", "arglist: ", "type: ", "info: ", NULL}; static char *closure_slots[] = {"fn: ", NULL}; static char *funcallable_instance_slots[] = {"raw_fn: ", "fn: ", "layout: ", NULL}; @@ -764,7 +764,8 @@ static void print_otherptr(lispobj obj) break; case SIMPLE_FUN_HEADER_WIDETAG: - print_slots(fn_slots, 6, ptr); + print_slots(simple_fun_slots, + sizeof simple_fun_slots/sizeof(char*)-1, ptr); break; #if !defined(LISP_FEATURE_X86) && !defined(LISP_FEATURE_X86_64) -- 2.11.4.GIT