From dfc4bf1d8c89cebc7ec246de0303a15c40347df5 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Wed, 15 Oct 2003 15:21:49 +0000 Subject: [PATCH] Use larger field width when printing out minimal room info so the columns line up neatly with large heaps. --- code/gc.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/code/gc.lisp b/code/gc.lisp index 23c404d93..821495350 100644 --- a/code/gc.lisp +++ b/code/gc.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.37 2003/09/25 02:40:12 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.38 2003/10/15 15:21:49 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -101,11 +101,11 @@ ;;;; Room. (defun room-minimal-info () - (format t "Dynamic Space Usage: ~10:D bytes.~%" (dynamic-usage)) - (format t "Read-Only Space Usage: ~10:D bytes.~%" (read-only-space-usage)) - (format t "Static Space Usage: ~10:D bytes.~%" (static-space-usage)) - (format t "Control Stack Usage: ~10:D bytes.~%" (control-stack-usage)) - (format t "Binding Stack Usage: ~10:D bytes.~%" (binding-stack-usage)) + (format t "Dynamic Space Usage: ~13:D bytes.~%" (dynamic-usage)) + (format t "Read-Only Space Usage: ~13:D bytes.~%" (read-only-space-usage)) + (format t "Static Space Usage: ~13:D bytes.~%" (static-space-usage)) + (format t "Control Stack Usage: ~13:D bytes.~%" (control-stack-usage)) + (format t "Binding Stack Usage: ~13:D bytes.~%" (binding-stack-usage)) (format t "The current dynamic space is ~D.~%" (current-dynamic-space)) (format t "Garbage collection is currently ~:[enabled~;DISABLED~].~%" *gc-inhibit*)) -- GitLab