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