X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-misc.lisp;h=9cb38b6904ab70213c8969448c9a446d808009f9;hb=edaebea5b5e6682b36f4067e3b187bd9fb4a5c25;hp=e70c86812ed09fff54a0ad5a4fd2ea1e0f98e9b7;hpb=f143939b1dbaf38ebd4f92c851fbc4ecddf37af1;p=sbcl.git

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index e70c868..9cb38b6 100644
--- a/src/code/target-misc.lisp
+++ b/src/code/target-misc.lisp
@@ -18,11 +18,12 @@
 (defun function-doc (x)
   (let ((name
 	 (case (get-type x)
-	   (#.sb!vm:closure-header-type
+	   (#.sb!vm:closure-header-widetag
 	    (%simple-fun-name (%closure-fun x)))
-	   ((#.sb!vm:simple-fun-header-type #.sb!vm:closure-fun-header-type)
+	   ((#.sb!vm:simple-fun-header-widetag
+	     #.sb!vm:closure-fun-header-widetag)
 	    (%simple-fun-name x))
-	   (#.sb!vm:funcallable-instance-header-type
+	   (#.sb!vm:funcallable-instance-header-widetag
 	    (%simple-fun-name
 	     (funcallable-instance-fun x))))))
     (when (and name (typep name '(or symbol cons)))