0.pre7.74:

[sbcl.git] / src / code / target-misc.lisp

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index 9cb38b6..e4c9acd 100644 (file)
--- a/src/code/target-misc.lisp
+++ b/src/code/target-misc.lisp
@@ -17,7 +17,7 @@
 ;;; cobbled from stuff in describe.lisp.
 (defun function-doc (x)
   (let ((name
-        (case (get-type x)
+        (case (widetag-of x)
           (#.sb!vm:closure-header-widetag
            (%simple-fun-name (%closure-fun x)))
           ((#.sb!vm:simple-fun-header-widetag