/[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.8.1.4 by wlott, Sun Aug 4 00:28:54 1991 UTC revision 1.8.1.5 by wlott, Mon Aug 5 23:05:29 1991 UTC
# Line 188  Line 188 
188    *GC-VERBOSE* is NIL) with the current amount of dynamic usage (in    *GC-VERBOSE* is NIL) with the current amount of dynamic usage (in
189    bytes).  It should notify the user that the system is going to GC.")    bytes).  It should notify the user that the system is going to GC.")
190    
191  (defun default-gc-notify-after (generation)  (defun default-gc-notify-after (generation words-scavenged words-transported)
192    (when (or (null *youngest-interesting-generation*)    (when (or (null *youngest-interesting-generation*)
193              (<= generation *youngest-interesting-generation*))              (<= generation *youngest-interesting-generation*))
194      (format t "  Done.]~%")      (format t "  Done.  ~:D words scavenged, and ~:D words transported.]~%"
195                words-scavenged words-transported)
196      (when (eq *gc-verbose* :beep)      (when (eq *gc-verbose* :beep)
197        (system:beep *standard-output*))        (system:beep *standard-output*))
198      (force-output)))      (force-output)))
# Line 225  Line 226 
226    (dolist (before-hook *before-gc-hooks*)    (dolist (before-hook *before-gc-hooks*)
227      (carefully-funcall before-hook)))      (carefully-funcall before-hook)))
228  ;;;  ;;;
229  (defun do-after-gc-stuff (generation)  (defun do-after-gc-stuff (generation words-scavenged words-transported)
230    (dolist (after-hook *after-gc-hooks*)    (dolist (after-hook *after-gc-hooks*)
231      (carefully-funcall after-hook))      (carefully-funcall after-hook))
232    (when *gc-verbose*    (when *gc-verbose*
233      (carefully-funcall *gc-notify-after* generation)))      (carefully-funcall *gc-notify-after* generation words-scavenged
234                           words-transported)))
235    
236    
237    

Legend:
Removed from v.1.8.1.4  
changed lines
  Added in v.1.8.1.5

  ViewVC Help
Powered by ViewVC 1.1.5