X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdescribe.lisp;h=d0859474e4c701ac3868c2a709b7e7c7ff77782e;hb=e27303999070c06c788a0e1359ee4b0900186aa1;hp=94afc2c71971457a23ba8e84a9556f20c67aaf43;hpb=0dcc957ae6bf24809fda82fd59c134e70058c42a;p=sbcl.git

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index 94afc2c..d085947 100644
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -42,7 +42,8 @@
   (call-next-method)
   (when (and (legal-function-name-p x)
 	     (fboundp x))
-    (format s "Its FDEFINITION is ~S.~@:_" (fdefinition x))
+    (%describe-function (fdefinition x) s :function x)
+    ;;was: (format s "~@:_Its FDEFINITION is ~S.~@:_" (fdefinition x))
     ;; TO DO: should check for SETF documentation.
     ;; TO DO: should make it clear whether the definition is a
     ;; DEFUN (SETF FOO) or DEFSETF FOO or what.