diff --git a/code/print.lisp b/code/print.lisp index 6dd29226dc2a3bb72db4898f1e470d46733150f6..379651aac85a2f82ed5e919b8ffdac99229a1aac 100644 --- a/code/print.lisp +++ b/code/print.lisp @@ -1222,10 +1222,11 @@ (#.%function-closure-subtype (if (eval:interpreted-function-p subr) (multiple-value-bind - (ig1 ig2 name) + (def ignore name) (eval:interpreted-function-lambda-expression subr) - (declare (ignore ig1 ig2)) - (format t "Interpreted Function ~S" name)) + (declare (ignore ignore)) + (let ((*print-level* 3)) + (format t "Interpreted Function ~S" (or name def)))) (format t "Closure ~S" (%primitive header-ref name %function-name-slot)))) (#.%function-closure-entry-subtype