0.pre7.55:

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

diff --git a/src/code/dyncount.lisp b/src/code/dyncount.lisp
index d14727b..b322722 100644 (file)
--- a/src/code/dyncount.lisp
+++ b/src/code/dyncount.lisp
@@ -214,8 +214,8 @@ comments from CMU CL:
 ;;; Return the DYNCOUNT-INFO for FUNCTION.
 (defun find-info-for (function)
   (declare (type function function))
-  (let* ((function (%primitive closure-function function))
-        (component (sb!di::function-code-header function)))
+  (let* ((function (%primitive closure-fun function))
+        (component (sb!di::fun-code-header function)))
     (do ((end (get-header-data component))
         (i sb!vm:code-constants-offset (1+ i)))
        ((= end i))