0.pre7.58:

[sbcl.git] / src / code / inspect.lisp

diff --git a/src/code/inspect.lisp b/src/code/inspect.lisp
index 8a8aeb9..172ae72 100644 (file)
--- a/src/code/inspect.lisp
+++ b/src/code/inspect.lisp
@@ -195,7 +195,7 @@ evaluated expressions.
 
 (defmethod inspected-parts ((object function))
   (let* ((type (sb-kernel:get-type object))
-        (object (if (= type sb-vm:closure-header-type)
+        (object (if (= type sb-vm:closure-header-widetag)
                     (sb-kernel:%closure-fun object)
                     object)))
     (values (format nil "FUNCTION ~S.~@[~%Argument List: ~A~]." object