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

Diff of /src/code/purify.lisp

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

revision 1.19.54.2 by rtoy, Wed Feb 10 01:53:31 2010 UTC revision 1.22 by rtoy, Tue Apr 20 17:57:45 2010 UTC
# Line 46  Line 46 
46    
47    
48  (defun purify (&key root-structures (environment-name "Auxiliary"))  (defun purify (&key root-structures (environment-name "Auxiliary"))
49    _N"This function optimizes garbage collection by moving all currently live    "This function optimizes garbage collection by moving all currently live
50     objects into non-collected storage.  ROOT-STRUCTURES is an optional list of     objects into non-collected storage.  ROOT-STRUCTURES is an optional list of
51     objects which should be copied first to maximize locality.     objects which should be copied first to maximize locality.
52    
# Line 63  Line 63 
63    (let ((*gc-notify-before*    (let ((*gc-notify-before*
64           #'(lambda (bytes-in-use)           #'(lambda (bytes-in-use)
65               (declare (ignore bytes-in-use))               (declare (ignore bytes-in-use))
66               (write-string _"[Doing purification: ")               (write-string (intl:gettext "[Doing purification: "))
67               (force-output)))               (force-output)))
68          (*internal-gc*          (*internal-gc*
69           #'(lambda ()           #'(lambda ()
# Line 72  Line 72 
72          (*gc-notify-after*          (*gc-notify-after*
73           #'(lambda (&rest ignore)           #'(lambda (&rest ignore)
74               (declare (ignore ignore))               (declare (ignore ignore))
75               (write-line _"Done.]"))))               (write-line (intl:gettext "Done.]")))))
76      #-gencgc (gc t)      #-gencgc (gc t)
77      #+gencgc (gc :verbose t))      #+gencgc (gc :verbose t))
78    nil)    nil)

Legend:
Removed from v.1.19.54.2  
changed lines
  Added in v.1.22

  ViewVC Help
Powered by ViewVC 1.1.5