0.pre7.74:

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

diff --git a/src/code/ntrace.lisp b/src/code/ntrace.lisp
index e835722..da078f2 100644 (file)
--- a/src/code/ntrace.lisp
+++ b/src/code/ntrace.lisp
@@ -125,7 +125,7 @@
                (values (fdefinition x) t))))
        (function x)
        (t (values (fdefinition x) t)))
-    (case (sb-kernel:get-type res)
+    (case (sb-kernel:widetag-of res)
       (#.sb-vm:closure-header-widetag
        (values (sb-kernel:%closure-fun res)
               named-p