X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdyncount.lisp;h=c14cb73dd7b7520cd1e65f761c0f6fac265f4875;hb=90ca09b75fbc3b63b2f7d09c67b04b866dd783f6;hp=d14727b2e003ae8228f9d4ab9f187be64dc9e164;hpb=2d0b882f9eabffe5e2d32c0e2e7ab06c96f4fea3;p=sbcl.git

diff --git a/src/code/dyncount.lisp b/src/code/dyncount.lisp
index d14727b..c14cb73 100644
--- a/src/code/dyncount.lisp
+++ b/src/code/dyncount.lisp
@@ -100,7 +100,7 @@ comments from CMU CL:
 	    (:constructor %make-vop-stats (name))
 	    (:constructor make-vop-stats-key)
 	    (:copier nil))
-  (name (required-argument) :type simple-string)
+  (name (missing-arg) :type simple-string)
   (data (make-array 2 :element-type 'double-float) :type count-vector))
 
 (defmacro vop-stats-count (x) `(aref (vop-stats-data ,x) 0))
@@ -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))
@@ -430,7 +430,7 @@ comments from CMU CL:
 		     cost)
 		 total-cost))
       (when (zerop (decf counter))
-	(format t "[End of top ~D]~%" cut-off))))))
+	(format t "[End of top ~W]~%" cut-off))))))
 
 ;;; Divide SORTED into two lists, the first CUT-OFF elements long. Any VOP
 ;;; names that match one of the report strings are moved into the REPORT list