;; 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)
(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))