;; *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
#!+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")