(without-gcing
(dolist (space spaces)
(sb!vm::map-allocated-objects
- #'(lambda (object type-code size)
- (declare (ignore type-code size))
- (when (dyncount-info-p object)
- (clear-dyncount-info object)))
+ (lambda (object type-code size)
+ (declare (ignore type-code size))
+ (when (dyncount-info-p object)
+ (clear-dyncount-info object)))
space)))))
;;; Call NOTE-DYNCOUNT-INFO on all DYNCOUNT-INFO structure allocated in the
(without-gcing
(dolist (space spaces)
(sb!vm::map-allocated-objects
- #'(lambda (object type-code size)
- (declare (ignore type-code size))
- (when (dyncount-info-p object)
- (note-dyncount-info object)
- (when clear
- (clear-dyncount-info object))))
+ (lambda (object type-code size)
+ (declare (ignore type-code size))
+ (when (dyncount-info-p object)
+ (note-dyncount-info object)
+ (when clear
+ (clear-dyncount-info object))))
space))))
(let ((counts (make-hash-table :test 'equal)))
(clear-vop-counts spaces)
(apply function args)
(if by-space
- (mapcar #'(lambda (space)
- (get-vop-counts (list space) :clear t))
+ (mapcar (lambda (space)
+ (get-vop-counts (list space) :clear t))
spaces)
(get-vop-counts spaces)))
\f
(defun sort-result (table by)
(sort (hash-list table) #'>
- :key #'(lambda (x)
- (abs (ecase by
- (:count (vop-stats-count x))
- (:cost (vop-stats-cost x)))))))
+ :key (lambda (x)
+ (abs (ecase by
+ (:count (vop-stats-count x))
+ (:cost (vop-stats-cost x)))))))
;;; Report about VOPs in the list of stats structures.
(defun entry-report (entries cut-off compensated compare total-cost)