Index: /branches/working-0711/ccl/lib/misc.lisp
===================================================================
--- /branches/working-0711/ccl/lib/misc.lisp	(revision 12892)
+++ /branches/working-0711/ccl/lib/misc.lisp	(revision 12893)
@@ -965,15 +965,22 @@
   (let* ((total-cons-size  (* nconses target::cons.size))
          (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)
+         (total-physical-vector-size 0)
+         (total-size 0))
+    (format out "~&Object type~42tCount~50tTotal Size in Bytes~72tTotal Size~82t % of Heap")
+    (dotimes( i (length nvectors))
+      (incf total-vector-size (aref vector-sizes i))
+      (incf total-physical-vector-size (aref vector-physical-sizes i)))
+    (setq total-size (+ total-cons-size total-physical-vector-size))
+    (format out "~&CONS~36t~12d~48t~16d~16d~8,2f%" nconses total-cons-size total-cons-size
+            (* 100 (/ total-cons-size total-size)))
     (dotimes (i (length nvectors))
-      (let* ((count (aref nvectors i))
-             (sizes (aref vector-sizes i))
-             (psizes (aref vector-physical-sizes i)))
+      (let ((count (aref nvectors i))
+            (sizes (aref vector-sizes i))
+            (psizes (aref vector-physical-sizes i)))
         (unless (zerop count)
-          (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 "~&~a~36t~12d~48t~16d~16d~8,2f%"
+                  (aref *heap-utilization-vector-type-names* i)
+                  count sizes psizes
+                  (* 100.0 (/ psizes total-size))))))
     (format out "~&   Total sizes: ~49t~16d~16d" (+ total-cons-size total-vector-size) (+ total-cons-size total-physical-vector-size))))