Changeset 12732

Timestamp:

Sep 1, 2009, 1:09:53 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

Make HEAP-UTILIZATION's output fit in an 80-column window.

File:

• trunk/source/lib/misc.lisp (modified) (2 diffs)

trunk/source/lib/misc.lisp

@@ -966 +966 @@
          (total-vector-size 0)
          (total-physical-vector-size 0))
-    (format out "~&Object type~42tCount~50tTotal Size in Bytes~72tTotal Size")
-    (format out "~&CONS~36t~12d~48t~16d~16d" nconses total-cons-size total-cons-size)
+    (format out "~&Object type~40tCount~48tTotal Size in Bytes~70tTotal Size")
+    (format out "~&CONS~34t~12d~46t~16d~16d" nconses total-cons-size total-cons-size)
     (dotimes (i (length nvectors))
       (let* ((count (aref nvectors i))
@@ -975 +975 @@
           (incf total-vector-size sizes)
           (incf total-physical-vector-size psizes)
-          (format out "~&~a~36t~12d~48t~16d~16d" (aref *heap-utilization-vector-type-names* i)  count sizes psizes))))
-    (format out "~&   Total sizes: ~49t~16d~16d" (+ total-cons-size total-vector-size) (+ total-cons-size total-physical-vector-size))))
+          (format out "~&~a~34t~12d~46t~16d~16d" (aref *heap-utilization-vector-type-names* i)  count sizes psizes))))
+    (format out "~&   Total sizes: ~47t~16d~16d" (+ total-cons-size total-vector-size) (+ total-cons-size total-physical-vector-size))))
                             
 ;; The number of words to allocate for static conses when the user requests