X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdyncount.lisp;h=fcdb4a389b2841900d29de5547c8b8d004ed5b8c;hb=986ce2596822cc0871b609346aaf592348aca596;hp=744cf74bb3866d8bfe663ed56a36f3a909aa682f;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/dyncount.lisp b/src/code/dyncount.lisp
index 744cf74..fcdb4a3 100644
--- a/src/code/dyncount.lisp
+++ b/src/code/dyncount.lisp
@@ -98,8 +98,9 @@ comments from CMU CL:
 (deftype count-vector () '(simple-array double-float (2)))
 (defstruct (vop-stats
 	    (:constructor %make-vop-stats (name))
-	    (:constructor make-vop-stats-key))
-  (name (required-argument) :type simple-string)
+	    (:constructor make-vop-stats-key)
+	    (:copier nil))
+  (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))
@@ -213,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))
@@ -531,7 +532,6 @@ comments from CMU CL:
 	 (compared (if compare
 		       (compare-stats compensated compare)
 		       compensated))
-	 (*gc-verbose* nil)
 	 (*gc-notify-stream* nil))
     (multiple-value-bind (total-count total-cost) (cost-summary compensated)
       (multiple-value-bind (compare-total-count compare-total-cost)