Changeset 5956

Timestamp:

Feb 22, 2007, 1:33:33 AM (18 years ago)

Author:

Gary Byers

Message:

Tweak ROOM output a little.

File:

• trunk/ccl/level-0/l0-misc.lisp (modified) (1 diff)

trunk/ccl/level-0/l0-misc.lisp

@@ -292 +292 @@
       (flet ((k (n) (round n 1024)))
         (princ "
-                  Total Size             Free                 Used")
-        (format t "~&Lisp Heap: ~12T~10D (~DK)  ~33T~10D (~DK)  ~54T~10D (~DK)"
+                   Total Size             Free                 Used")
+        (format t "~&Lisp Heap:~15t~10D (~DK)~35t~10D (~DK)~55t~10D (~DK)"
                 lispheap (k lispheap)
                 freebytes (k freebytes)
                 usedbytes (k usedbytes))
-        (format t "~&Stacks:    ~12T~10D (~DK)  ~33T~10D (~DK)  ~54T~10D (~DK)"
+        (format t "~&Stacks:~15t~10D (~DK)~35t~10D (~DK)~55t~10D (~DK)"
                 stack-total (k stack-total)
                 stack-free (k stack-free)
                 stack-used (k stack-used))
-        (format t "~&Static: ~12T~10D (~DK)  ~33T~10D (~DK) ~54T~10D (~DK)"
+        (format t "~&Static:~15t~10D (~DK)~35t~10D (~DK)~55t~10D (~DK)"
                 static (k static)
                 0 0