From 8135c4cf8d497e3744e584386811c9bc9600f0fb Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 13 Jul 1990 20:38:56 +0000
Subject: [PATCH] Added two functions, assert-user-package and
 initial-init-function, for use by worldload.

---
 code/save.lisp | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/code/save.lisp b/code/save.lisp
index cb7673cce..1f7cc7730 100644
--- a/code/save.lisp
+++ b/code/save.lisp
@@ -8,7 +8,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.1.1.3 1990/07/02 04:36:58 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.1.1.4 1990/07/13 20:38:56 wlott Exp $
 ;;;
 ;;; Dump the current lisp image into a core file.  All the real work is done
 ;;; be C.
@@ -129,7 +129,6 @@
     (funcall init-function)))
 
 
-
 (defun print-herald ()
   (macrolet ((frob (variable)
 	       `(if (boundp ',variable)
@@ -145,3 +144,15 @@
     (write-line (frob compiler-version))
     (write-line "Send bug reports and questions to Gripe."))
   (values))
+
+
+;;;; Random functions used by worldload.
+
+(defun assert-user-package ()
+  (unless (eq *package* (find-package "USER"))
+    (error "Change *PACKAGE* to the USER package and try again.")))
+
+(defun initial-init-function ()
+  (gc-on)
+  (throw 'top-level-catcher nil))
+
-- 
GitLab