X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdescribe.lisp;h=d6098e44231696baf891d1313cbb6e57332f9c9a;hb=be9eb6c67b5f43a095c3de17bea945c309d662e4;hp=2a4e6b6d83c0b989be3f89c9cc91f60148147328;hpb=b6cb3d5b2e2a0d6e6c92a2f3d852051540660fef;p=sbcl.git

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index 2a4e6b6..d6098e4 100644
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -179,7 +179,7 @@
   (let ((name (or name (%function-name x))))
     (%describe-doc name s 'function kind)
     (unless (eq kind :macro)
-      (%describe-function-name name s (%function-type x))))
+      (%describe-function-name name s (%fun-type x))))
   (%describe-compiled-from (sb-kernel:function-code-header x) s))
 
 ;;; Describe a function with the specified kind and name. The latter