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

Contents of /src/code/purify.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.11.2.1 - (hide annotations)
Fri Jan 24 04:34:19 1992 UTC (22 years, 2 months ago) by wlott
Changes since 1.11: +6 -6 lines
Mods for new aliens.
1 ram 1.1 ;;; -*- Log: code.log; Package: Lisp -*-
2     ;;;
3     ;;; **********************************************************************
4 ram 1.11 ;;; This code was written as part of the CMU Common Lisp project at
5     ;;; Carnegie Mellon University, and has been placed in the public domain.
6     ;;; If you want to use this code or any part of CMU Common Lisp, please contact
7     ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
8     ;;;
9     (ext:file-comment
10 wlott 1.11.2.1 "$Header: /tiger/var/lib/cvsroots/cmucl/src/code/purify.lisp,v 1.11.2.1 1992/01/24 04:34:19 wlott Exp $")
11 ram 1.11 ;;;
12 ram 1.1 ;;; **********************************************************************
13     ;;;
14     ;;; Storage purifier for Spice Lisp.
15     ;;; Written by Rob MacLachlan and Skef Wholey.
16     ;;;
17 wlott 1.10 ;;; Rewritten in C by William Lott.
18 ram 1.1 ;;;
19     (in-package 'lisp)
20    
21 wlott 1.11.2.1 (alien:def-alien-routine ("purify" %purify) c-call:void
22     (static-roots c-call:unsigned-long)
23     (read-only-roots c-call:unsigned-long))
24 wlott 1.7
25 wlott 1.8 (defun purify (&key root-structures constants)
26 wlott 1.7 (write-string "[Doing purification: ")
27     (force-output)
28     (without-gcing
29 wlott 1.9 (clear-auto-gc-trigger)
30 wlott 1.11.2.1 (%purify (get-lisp-obj-address root-structures)
31     (get-lisp-obj-address constants))
32 wlott 1.9 (when *gc-trigger*
33 wlott 1.10 (setf *gc-trigger* *bytes-consed-between-gcs*)
34 wlott 1.9 (set-auto-gc-trigger *gc-trigger*)))
35 wlott 1.7 (write-line "Done.]")
36     (force-output)
37     nil)
38    

  ViewVC Help
Powered by ViewVC 1.1.5