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

Changed the way the garbage collector gets turned on.

parent 2edee189
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.44 1992/02/27 06:03:38 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.45 1992/03/29 21:55:36 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -166,11 +166,19 @@ ...@@ -166,11 +166,19 @@
;;; ;;;
(lisp::clear-all-search-lists) (lisp::clear-all-search-lists)
;; set up the initial info environment.
(setq *info-environment*
(list* (make-info-environment :name "Working")
(compact-info-environment (first *info-environment*)
:name "Auxiliary")
(rest *info-environment*)))
;;; Okay, build the thing! ;;; Okay, build the thing!
;;; ;;;
(progn (progn
;; We want to be in the USER package when the command line switches run. ;; We want to be in the USER package when the command line switches run.
(in-package "USER") (in-package "USER")
;; Clean random top-level specials.
(setq - nil) (setq - nil)
(setq + nil) (setq + nil)
(setq * nil) (setq * nil)
...@@ -181,14 +189,12 @@ ...@@ -181,14 +189,12 @@
(setq +++ nil) (setq +++ nil)
(setq *** nil) (setq *** nil)
(setq /// nil) (setq /// nil)
(setq *info-environment* ;;
(list* (make-info-environment :name "Working") ;; Enable the garbage collector. But first fake it into thinking that
(compact-info-environment (first *info-environment*) ;; we don't need to garbage collect. The save-lisp is going to call purify
:name "Auxiliary") ;; so any garbage will be collected then.
(rest *info-environment*))) (setf *need-to-collect-garbage* nil)
(gc-on)
(save-lisp (namestring (merge-pathnames "lisp.core" (default-directory))) ;;
:purify t ;; Save the lisp.
:init-function #'initial-init-function (save-lisp "lisp.core"))
#| :constants (cadr *info-environment*) |#
))
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