/[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.17 by ram, Thu Aug 5 17:17:10 1993 UTC revision 1.18 by ram, Mon Feb 14 11:51:10 1994 UTC
# Line 104  Line 104 
104    (vm:instance-usage :dynamic :top-n 10)    (vm:instance-usage :dynamic :top-n 10)
105    (vm:instance-usage :static :top-n 10))    (vm:instance-usage :static :top-n 10))
106    
107    
108  (defun room (&optional (verbosity :default))  (defun room (&optional (verbosity :default))
109    "Prints to *STANDARD-OUTPUT* information about the state of internal    "Prints to *STANDARD-OUTPUT* information about the state of internal
110    storage and its management.  The optional argument controls the    storage and its management.  The optional argument controls the
# Line 113  Line 114 
114    an intermediate amount of information.  See also VM:MEMORY-USAGE and    an intermediate amount of information.  See also VM:MEMORY-USAGE and
115    VM:INSTANCE-USAGE for finer report control."    VM:INSTANCE-USAGE for finer report control."
116    (fresh-line)    (fresh-line)
117    (case verbosity    (if (fboundp 'vm:memory-usage)
118      ((t)        (case verbosity
119       (room-maximal-info))          ((t)
120      ((nil)           (room-maximal-info))
121       (room-minimal-info))          ((nil)
122      (:default           (room-minimal-info))
123       (room-intermediate-info))          (:default
124      (t           (room-intermediate-info))
125       (error "No way man!  The optional argument to ROOM must be T, NIL, ~          (t
126       or :DEFAULT.~%What do you think you are doing?")))           (error "No way man!  The optional argument to ROOM must be T, NIL, ~
127                     or :DEFAULT.~%What do you think you are doing?")))
128          (room-minimal-info))
129    (values))    (values))
130    
131    

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

  ViewVC Help
Powered by ViewVC 1.1.5