;; *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
;; 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)
(show-and-call !late-proclaim-cold-init)
(show-and-call os-cold-init-or-reinit)
+ (show-and-call !pathname-cold-init)
+ (show-and-call !debug-info-cold-init)
(show-and-call stream-cold-init-or-reset)
(show-and-call !loader-cold-init)
#!+hpux (sb!sys:%primitive sb!vm::setup-return-from-lisp-stub)
;; The system is finally ready for GC.
(/show0 "enabling GC")
- (gc-on)
+ (setq *gc-inhibit* nil)
(/show0 "doing first GC")
(gc :full t)
(/show0 "back from first GC")
(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))