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