X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcold-init.lisp;h=b9b199478a0d617e2193cf2cb96b6e3053ea3ff8;hb=619189958917e80786d5bb2efa4dc38d908d2553;hp=bcde5e75a552352b95e32b6dc920dc29a1745e55;hpb=75de197e44a87ba221e7da2480429759a2134d9e;p=sbcl.git

diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp
index bcde5e7..b9b1994 100644
--- a/src/code/cold-init.lisp
+++ b/src/code/cold-init.lisp
@@ -93,10 +93,12 @@
   ;; *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
+        *in-without-gcing* nil
         *gc-inhibit* t
         *gc-pending* nil
         #!+sb-thread *stop-for-gc-pending* #!+sb-thread nil
         *allow-with-interrupts* t
+        sb!unix::*unblock-deferrables-on-enabling-interrupts-p* nil
         *interrupts-enabled* t
         *interrupt-pending* nil
         *break-on-signals* nil