Author: hhubner Date: Tue Jan 22 01:59:19 2008 New Revision: 2384

Modified: branches/bos/projects/bos/m2/allocation-cache.lisp Log: Slightly beautify table. Please use upper case letters for format directives so that they are easier to identify visually.

Modified: branches/bos/projects/bos/m2/allocation-cache.lisp ============================================================================== --- branches/bos/projects/bos/m2/allocation-cache.lisp (original) +++ branches/bos/projects/bos/m2/allocation-cache.lisp Tue Jan 22 01:59:19 2008 @@ -197,13 +197,15 @@ (summing (length regions))))

(defun pprint-cache () + (format t "~5A~10T~A~%" "size" "count") + (format t "~5A~10T~A~%" "-----" "-----") (iter - (for regions in-vector (allocation-cache-index *allocation-cache*)) + (for cache-entries in-vector (allocation-cache-index *allocation-cache*)) (for size upfrom 1) - (for region-count = (length regions)) - (unless (zerop region-count) - (format t "~a~10T~a~%" size region-count))) - (format t "area size ignored by cache: ~a~%" (ignored-size *allocation-cache*))) + (for count = (length cache-entries)) + (unless (zerop count) + (format t "~5D~10T~5D~%" size count))) + (format t "~%Area size ignored by cache: ~A~%" (ignored-size *allocation-cache*)))

(defun rebuild-cache () (setq *allocation-cache* (make-allocation-cache))