diff --git a/code/describe.lisp b/code/describe.lisp index 5d985ce4f01a8cb81675b2622f9a7b14558af000..f47d9be184a3e6ef4661144f768c9dca30c1cf46 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