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