/[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 by dtc, Tue Nov 4 16:00:16 1997 UTC revision 1.19.56.1 by rtoy, Thu Feb 25 20:34:51 2010 UTC
# Line 15  Line 15 
15  ;;; Rewritten in C by William Lott.  ;;; Rewritten in C by William Lott.
16  ;;;  ;;;
17  (in-package "LISP")  (in-package "LISP")
18    (intl:textdomain "cmucl")
19    
20  (export 'ext::purify "EXT")  (export 'ext::purify "EXT")
21    
22  (alien:def-alien-routine ("purify" %purify) c-call:void  (alien:def-alien-routine ("purify" %purify) c-call:void
# Line 44  Line 46 
46    
47    
48  (defun purify (&key root-structures (environment-name "Auxiliary"))  (defun purify (&key root-structures (environment-name "Auxiliary"))
49    "This function optimizes garbage collection by moving all currently live    _N"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 61  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 _"[Doing purification: ")
67               (force-output)))               (force-output)))
68          (*internal-gc*          (*internal-gc*
69           #'(lambda ()           #'(lambda ()
# Line 70  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 _"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  
changed lines
  Added in v.1.19.56.1

  ViewVC Help
Powered by ViewVC 1.1.5