From a98eeb17f08ac62677b94d34d1f7010db85b3351 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 14 Feb 1994 11:51:10 +0000 Subject: [PATCH] Don't try to do verbose room if it isn't loaded. --- code/gc.lisp | 25 ++++++++++++++----------- 1 file changed, 14 insertions(+), 11 deletions(-) diff --git a/code/gc.lisp b/code/gc.lisp index 9bec6c9d5..44719bdac 100644 --- a/code/gc.lisp +++ b/code/gc.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.17 1993/08/05 17:17:10 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.18 1994/02/14 11:51:10 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -104,6 +104,7 @@ (vm:instance-usage :dynamic :top-n 10) (vm:instance-usage :static :top-n 10)) + (defun room (&optional (verbosity :default)) "Prints to *STANDARD-OUTPUT* information about the state of internal storage and its management. The optional argument controls the @@ -113,16 +114,18 @@ an intermediate amount of information. See also VM:MEMORY-USAGE and VM:INSTANCE-USAGE for finer report control." (fresh-line) - (case verbosity - ((t) - (room-maximal-info)) - ((nil) - (room-minimal-info)) - (:default - (room-intermediate-info)) - (t - (error "No way man! The optional argument to ROOM must be T, NIL, ~ - or :DEFAULT.~%What do you think you are doing?"))) + (if (fboundp 'vm:memory-usage) + (case verbosity + ((t) + (room-maximal-info)) + ((nil) + (room-minimal-info)) + (:default + (room-intermediate-info)) + (t + (error "No way man! The optional argument to ROOM must be T, NIL, ~ + or :DEFAULT.~%What do you think you are doing?"))) + (room-minimal-info)) (values)) -- GitLab