X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcold-init.lisp;h=844423447f8e844bff1d7e38240a681e3c5b9665;hb=cc27e35fc73e6765679d6f426ee144abdfac7c27;hp=370681df630716bf648364362d344b5ee4574dd3;hpb=a160917364f85b38dc0826a5e3dcef87e3c4c62c;p=sbcl.git

diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp
index 370681d..8444234 100644
--- a/src/code/cold-init.lisp
+++ b/src/code/cold-init.lisp
@@ -111,7 +111,7 @@
 
   ;; I'm not sure where eval is first called, so I put this first.
   (show-and-call !eval-cold-init)
-
+  (show-and-call !deadline-cold-init)
   (show-and-call thread-init-or-reinit)
   (show-and-call !typecheckfuns-cold-init)
 
@@ -276,7 +276,7 @@
 
 (defun quit (&key recklessly-p (unix-status 0))
   #!+sb-doc
-  "Terminate the current Lisp. *EXIT-HOOKS* are pending unwind-protect
+  "Terminate the current Lisp. *EXIT-HOOKS* and pending unwind-protect
 cleanup forms are run unless RECKLESSLY-P is true. On UNIX-like
 systems, UNIX-STATUS is used as the status code."
   (declare (type (signed-byte 32) unix-status))