From 7058bdb7aa403d0eebb72f88f2ec46db0e9a7fc5 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 12 Sep 1990 14:13:19 +0000 Subject: [PATCH] Fixed DESCRIBE-FUNCTION-LEX-CLOSURE to use GET-CLOSURE-LENGTH instead of GET-HEADER-DATA so that it won't seg-fault. --- code/describe.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/describe.lisp b/code/describe.lisp index 9a1831a44..402a2dd39 100644 --- a/code/describe.lisp +++ b/code/describe.lisp @@ -276,7 +276,7 @@ (describe-function-compiled (%closure-function x)) (format t "~&Its lexical environment is:") (indenting-further *standard-output* 8) - (dotimes (i (get-header-data x)) + (dotimes (i (get-closure-length x)) (format t "~&~D: ~S" i (%closure-index-ref x i)))) -- GitLab