X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftarget-misc.lisp;h=e4c9acd9f6dda78701d62c2c09f2ac920f24f09c;hb=cd71fa005a6168cf9c79eca38459210bdd9a6c4b;hp=9cb38b6904ab70213c8969448c9a446d808009f9;hpb=3c65762b927af861c9c8bc416e4cbac9a14ec0c3;p=sbcl.git

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index 9cb38b6..e4c9acd 100644
--- 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