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