diff --git a/code/describe.lisp b/code/describe.lisp index 9a1831a4411727e254adc5c89ecd7b2e8235d52e..402a2dd39fcf2ce82d42aaf91592f244a59de902 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))))