From d6eeece3163e35bed2defa7e91fac1e3229fce76 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 29 Mar 1992 21:55:36 +0000
Subject: [PATCH] Changed the way the garbage collector gets turned on.

---
 tools/worldload.lisp | 30 ++++++++++++++++++------------
 1 file changed, 18 insertions(+), 12 deletions(-)

diff --git a/tools/worldload.lisp b/tools/worldload.lisp
index 18a7ce636..68eff09fb 100644
--- a/tools/worldload.lisp
+++ b/tools/worldload.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (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 @@
 ;;;
 (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!
 ;;;
 (progn
   ;; We want to be in the USER package when the command line switches run.
   (in-package "USER")
+  ;; Clean random top-level specials.
   (setq - nil)
   (setq + nil)
   (setq * nil)
@@ -181,14 +189,12 @@
   (setq +++ nil)
   (setq *** nil)
   (setq /// nil)
-  (setq *info-environment*
-	(list* (make-info-environment :name "Working")
-	       (compact-info-environment (first *info-environment*)
-					 :name "Auxiliary")
-	       (rest *info-environment*)))
-
-  (save-lisp (namestring (merge-pathnames "lisp.core" (default-directory)))
-	     :purify t
-	     :init-function #'initial-init-function
-	     #| :constants (cadr *info-environment*) |#
-	     ))
+  ;; 
+  ;; Enable the garbage collector.  But first fake it into thinking that
+  ;; we don't need to garbage collect.  The save-lisp is going to call purify
+  ;; so any garbage will be collected then.
+  (setf *need-to-collect-garbage* nil)
+  (gc-on)
+  ;;
+  ;; Save the lisp.
+  (save-lisp "lisp.core"))
-- 
GitLab