diff --git a/hemlock/rompsite.lisp b/hemlock/rompsite.lisp index 5c4c1d757d89862eaac3a311857d5b28658d3d04..36efe589fa5832555effb20bb59713a4d8818f62 100644 --- a/hemlock/rompsite.lisp +++ b/hemlock/rompsite.lisp @@ -748,9 +748,10 @@ then this also outputs any 'function documentation for sym to *standard-output*." (describe fun) - #+nil (when (and (compiled-function-p fun) - (not (eq (%primitive header-ref fun %function-name-slot) sym))) + (not (eq (kernel:%function-header-name + (kernel:%closure-function fun)) + sym))) (let ((doc (documentation sym 'function))) (when doc (format t "~&Function documentation for ~S:" sym)