From 6d974528558755f7720724a78dc03d35b6bd7667 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 21 Feb 1990 11:39:31 +0000 Subject: [PATCH] In %INITIAL-FUNCTION, set initialize *GC-INHIBIT* to T and don't clear it. GC must be at the end of worldload. --- code/lispinit.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/lispinit.lisp b/code/lispinit.lisp index a531eb996..2670f818c 100644 --- a/code/lispinit.lisp +++ b/code/lispinit.lisp @@ -932,7 +932,7 @@ (defun %initial-function () "Gives the world a shove and hopes it spins." (setq *already-maybe-gcing* t) - (setf *gc-inhibit* nil) + (setf *gc-inhibit* t) (setf *need-to-collect-garbage* nil) (%primitive print "In initial-function, and running.") -- GitLab