/[cmucl]/src/code/gc.lisp
ViewVC logotype

Diff of /src/code/gc.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by toy, Thu Sep 25 02:40:12 2003 UTC revision 1.38 by toy, Wed Oct 15 15:21:49 2003 UTC
# Line 101  Line 101 
101  ;;;; Room.  ;;;; Room.
102    
103  (defun room-minimal-info ()  (defun room-minimal-info ()
104    (format t "Dynamic Space Usage:    ~10:D bytes.~%" (dynamic-usage))    (format t "Dynamic Space Usage:    ~13:D bytes.~%" (dynamic-usage))
105    (format t "Read-Only Space Usage:  ~10:D bytes.~%" (read-only-space-usage))    (format t "Read-Only Space Usage:  ~13:D bytes.~%" (read-only-space-usage))
106    (format t "Static Space Usage:     ~10:D bytes.~%" (static-space-usage))    (format t "Static Space Usage:     ~13:D bytes.~%" (static-space-usage))
107    (format t "Control Stack Usage:    ~10:D bytes.~%" (control-stack-usage))    (format t "Control Stack Usage:    ~13:D bytes.~%" (control-stack-usage))
108    (format t "Binding Stack Usage:    ~10:D bytes.~%" (binding-stack-usage))    (format t "Binding Stack Usage:    ~13:D bytes.~%" (binding-stack-usage))
109    (format t "The current dynamic space is ~D.~%" (current-dynamic-space))    (format t "The current dynamic space is ~D.~%" (current-dynamic-space))
110    (format t "Garbage collection is currently ~:[enabled~;DISABLED~].~%"    (format t "Garbage collection is currently ~:[enabled~;DISABLED~].~%"
111            *gc-inhibit*))            *gc-inhibit*))

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

  ViewVC Help
Powered by ViewVC 1.1.5