0.pre7.55:

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

diff --git a/src/code/ntrace.lisp b/src/code/ntrace.lisp
index 1b0540f..587c1b0 100644 (file)
--- a/src/code/ntrace.lisp
+++ b/src/code/ntrace.lisp
@@ -127,7 +127,7 @@
        (t (values (fdefinition x) t)))
     (case (sb-kernel:get-type res)
       (#.sb-vm:closure-header-type
-       (values (sb-kernel:%closure-function res)
+       (values (sb-kernel:%closure-fun res)
               named-p
               :compiled-closure))
       (#.sb-vm:funcallable-instance-header-type