From 8e53744212d13719f81cf975717d9e2c03121f4e Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 19 Mar 1990 11:25:42 +0000
Subject: [PATCH] Fixed order of args to DESC-DOC in DESCRIBE-FUNCTION-COMPILED
 so that we look for the FUNCTION documentation of the Name instead of the
 Name documentation of FUNCTION.

---
 code/describe.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/code/describe.lisp b/code/describe.lisp
index 5d985ce4f..f47d9be18 100644
--- a/code/describe.lisp
+++ b/code/describe.lisp
@@ -248,7 +248,7 @@
   
   (let ((name (%primitive header-ref x %function-name-slot)))
     (when (symbolp name)
-      (desc-doc 'function name "Function Documention:")))
+      (desc-doc name 'function "Function Documention:")))
   
   (let ((info (%primitive header-ref
 			  (%primitive header-ref x
-- 
GitLab