From 871bfee79493065794d6642329af5b630e6ef41a Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 13 Nov 1990 07:05:18 +0000 Subject: [PATCH] Finished editor-describe-function. --- hemlock/rompsite.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/hemlock/rompsite.lisp b/hemlock/rompsite.lisp index 5c4c1d757..36efe589f 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) -- GitLab