diff --git a/code/gc.lisp b/code/gc.lisp index 23c404d930209c237b0b1e501a99ffaed7a90635..8214953505825a45dca451bbdbf5f728f7004959 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*))