X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcold-init.lisp;h=07af1593d2f992ce35a99fa72c63f5dc91841769;hb=07f9be96a046393b2f08a1cb25d66e7c28bf6bbb;hp=69e0541ba5793694231a6c4616825b84912696a4;hpb=8c82cc1e67fe8116431a1d2d4e79005114ff1697;p=sbcl.git

diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp
index 69e0541..07af159 100644
--- a/src/code/cold-init.lisp
+++ b/src/code/cold-init.lisp
@@ -102,7 +102,8 @@
         *maximum-error-depth* 10
         *current-error-depth* 0
         *cold-init-complete-p* nil
-        *type-system-initialized* nil)
+        *type-system-initialized* nil
+        sb!vm:*alloc-signal* nil)
 
   ;; I'm not sure where eval is first called, so I put this first.
   #!+sb-eval
@@ -295,10 +296,8 @@ UNIX-like systems, UNIX-STATUS is used as the status code."
       (setf (sb!alien:extern-alien "internal_errors_enabled" boolean) t)
       (float-cold-init-or-reinit)))
   (gc-reinit)
-  ;; make sure TIME works correctly from saved cores
-  (setf *internal-real-time-base-seconds* nil)
-  (setf *gc-run-time* 0)
   (foreign-reinit)
+  (time-reinit)
   ;; If the debugger was disabled in the saved core, we need to
   ;; re-disable ldb again.
   (when (eq *invoke-debugger-hook* 'sb!debug::debugger-disabled-hook)