[bknr-cvs] r2384 - branches/bos/projects/bos/m2

[hhubner at common-lisp.net]

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))