Skip to content
Snippets Groups Projects
Commit 402d46c0 authored by wlott's avatar wlott
Browse files

typo

parent 369b29be
No related branches found
No related tags found
No related merge requests found
...@@ -10,20 +10,10 @@ ...@@ -10,20 +10,10 @@
;;; Storage purifier for Spice Lisp. ;;; Storage purifier for Spice Lisp.
;;; Written by Rob MacLachlan and Skef Wholey. ;;; Written by Rob MacLachlan and Skef Wholey.
;;; ;;;
;;; The function Purify, defined herein, puts as much of the Lisp system as ;;; Rewritten in C by William Lott.
;;; possible into Read-Only and Static spaces so that subsequent garbage
;;; collections are quicker. This is done by frobbing the free-pointers for
;;; spaces so that new objects are put in static or read-only space as
;;; appropiate, then doing a GC.
;;;
;;; We also transport all of the dynamic symbols in Lisp code so we
;;; can do clever things that improve locality in the resulting Lisp.
;;; Some constant conses and g-vectors are also transported in macrocode
;;; so that we can put them in read-only space.
;;; ;;;
(in-package 'lisp) (in-package 'lisp)
(def-c-routine ("purify" %purify) (void) (def-c-routine ("purify" %purify) (void)
(static-roots unsigned-long) (static-roots unsigned-long)
(read-only-roots unsigned-long)) (read-only-roots unsigned-long))
...@@ -36,7 +26,7 @@ ...@@ -36,7 +26,7 @@
(%purify (di::get-lisp-obj-address root-structures) (%purify (di::get-lisp-obj-address root-structures)
(di::get-lisp-obj-address constants)) (di::get-lisp-obj-address constants))
(when *gc-trigger* (when *gc-trigger*
(setf *gc-trigger* *bytes-coned-between-gcs*) (setf *gc-trigger* *bytes-consed-between-gcs*)
(set-auto-gc-trigger *gc-trigger*))) (set-auto-gc-trigger *gc-trigger*)))
(write-line "Done.]") (write-line "Done.]")
(force-output) (force-output)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment