/[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.7 by wlott, Fri Aug 24 18:12:30 1990 UTC revision 1.8 by wlott, Thu Sep 27 02:23:39 1990 UTC
# Line 24  Line 24 
24  (in-package 'lisp)  (in-package 'lisp)
25    
26    
27  (def-c-routine ("purify" %purify) (int)  (def-c-routine ("purify" %purify) (void)
28    (roots unsigned-long))    (static-roots unsigned-long)
29      (read-only-roots unsigned-long))
30    
31  (defun purify (&key root-structures)  (defun purify (&key root-structures constants)
32    (write-string "[Doing purification: ")    (write-string "[Doing purification: ")
33    (force-output)    (force-output)
34    (without-gcing    (without-gcing
35     (%purify (di::get-lisp-obj-address root-structures)))     (%purify (di::get-lisp-obj-address root-structures)
36                (di::get-lisp-obj-address constants)))
37    (write-line "Done.]")    (write-line "Done.]")
38    (force-output)    (force-output)
39    nil)    nil)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5