From 44f6342ef73531cec1d79a9bea1289b4ce2e6e28 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 21 Feb 1990 14:58:19 +0000 Subject: [PATCH] Flushed hacking on *ALREADY-MAYBE-GCING*. Instead, we call GC-ON in the SAVE-LISP init function. --- tools/worldload.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/tools/worldload.lisp b/tools/worldload.lisp index 65922c89e..4b782e4cc 100644 --- a/tools/worldload.lisp +++ b/tools/worldload.lisp @@ -12,9 +12,7 @@ ;;; the resulting core image. It writes "lisp.core" in the DEFAULT-DIRECTORY. ;;; -;;; Turn of GC so bad things don't happen. -;;; -(setq lisp::*already-maybe-gcing* t) + #| Can't eval conditionals now... ;;; Setup some packages. ;;; @@ -148,7 +146,6 @@ (setq ** NIL) (setq +++ NIL) (setq *** NIL) - (setq lisp::*already-maybe-gcing* t) (setq *load-verbose* nil) (setq *info-environment* (list (make-info-environment :name "Working") @@ -161,4 +158,6 @@ extensions:save-lisp ,lisp::fop-codes compile-file) - :init-function #'abort)) + :init-function #'(lambda () + (gc-on) + (abort)))) -- GitLab