Skip to content
Snippets Groups Projects
Commit 8e537442 authored by ram's avatar ram
Browse files

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.
parent 65190717
No related branches found
No related tags found
No related merge requests found
...@@ -248,7 +248,7 @@ ...@@ -248,7 +248,7 @@
(let ((name (%primitive header-ref x %function-name-slot))) (let ((name (%primitive header-ref x %function-name-slot)))
(when (symbolp name) (when (symbolp name)
(desc-doc 'function name "Function Documention:"))) (desc-doc name 'function "Function Documention:")))
(let ((info (%primitive header-ref (let ((info (%primitive header-ref
(%primitive header-ref x (%primitive header-ref x
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment