Changeset 12732


Ignore:
Timestamp:
Sep 1, 2009, 8:09:53 PM (10 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/misc.lisp

    r12710 r12732  
    966966         (total-vector-size 0)
    967967         (total-physical-vector-size 0))
    968     (format out "~&Object type~42tCount~50tTotal Size in Bytes~72tTotal Size")
    969     (format out "~&CONS~36t~12d~48t~16d~16d" nconses total-cons-size total-cons-size)
     968    (format out "~&Object type~40tCount~48tTotal Size in Bytes~70tTotal Size")
     969    (format out "~&CONS~34t~12d~46t~16d~16d" nconses total-cons-size total-cons-size)
    970970    (dotimes (i (length nvectors))
    971971      (let* ((count (aref nvectors i))
     
    975975          (incf total-vector-size sizes)
    976976          (incf total-physical-vector-size psizes)
    977           (format out "~&~a~36t~12d~48t~16d~16d" (aref *heap-utilization-vector-type-names* i)  count sizes psizes))))
    978     (format out "~&   Total sizes: ~49t~16d~16d" (+ total-cons-size total-vector-size) (+ total-cons-size total-physical-vector-size))))
     977          (format out "~&~a~34t~12d~46t~16d~16d" (aref *heap-utilization-vector-type-names* i)  count sizes psizes))))
     978    (format out "~&   Total sizes: ~47t~16d~16d" (+ total-cons-size total-vector-size) (+ total-cons-size total-physical-vector-size))))
    979979                           
    980980;; The number of words to allocate for static conses when the user requests
Note: See TracChangeset for help on using the changeset viewer.