X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcold-init.lisp;h=202a479cf393355ec2fb61ab8b143abaf345fdcd;hb=ff6f7c4d82e5780cced4900561eaae2af0a24d06;hp=b80bfd83843bc0da735e3156ecfc12cdd5980c60;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp
index b80bfd8..202a479 100644
--- a/src/code/cold-init.lisp
+++ b/src/code/cold-init.lisp
@@ -93,8 +93,9 @@
   ;; *TYPE-SYSTEM-INITIALIZED-WHEN-BOUND* so that it doesn't need to
   ;; be explicitly set in order to be meaningful.
   (setf *after-gc-hooks* nil
-        *gc-inhibit* 1
-        *need-to-collect-garbage* nil
+        *gc-inhibit* t
+        *gc-pending* nil
+        #!+sb-thread *stop-for-gc-pending* #!+sb-thread nil
         sb!unix::*interrupts-enabled* t
         sb!unix::*interrupt-pending* nil
         *break-on-signals* nil
@@ -283,6 +284,7 @@ UNIX-like systems, UNIX-STATUS is used as the status code."
   (sb!thread::get-foreground))
 
 (defun reinit ()
+  (setf *default-external-format* nil)
   (without-interrupts
     (without-gcing
         (os-cold-init-or-reinit)