;; forms of the corresponding source files.
(show-and-call !package-cold-init)
-
- ;; Set sane values for our toplevel forms.
- (show-and-call !set-sane-policy-defaults)
+ (show-and-call !policy-cold-init-or-resanify)
+ (/show0 "back from !POLICY-COLD-INIT-OR-RESANIFY")
;; KLUDGE: Why are fixups mixed up with toplevel forms? Couldn't
;; fixups be done separately? Wouldn't that be clearer and better?
(t (!cold-lose "bogus function in *!REVERSED-COLD-TOPLEVELS*")))))
(/show0 "done with loop over cold toplevel forms and fixups")
- ;; Set sane values again, so that the user sees sane values instead of
- ;; whatever is left over from the last DECLAIM.
- (show-and-call !set-sane-policy-defaults)
+ ;; Set sane values again, so that the user sees sane values instead
+ ;; of whatever is left over from the last DECLAIM/PROCLAIM.
+ (show-and-call !policy-cold-init-or-resanify)
- ;; Only do this after top level forms have run, 'cause that's where
+ ;; Only do this after toplevel forms have run, 'cause that's where
;; DEFTYPEs are.
(setf *type-system-initialized* t)
(show-and-call !class-finalize)
;; The reader and printer are initialized very late, so that they
- ;; can even do hairy things like invoking the compiler as part of
- ;; their initialization.
+ ;; can do hairy things like invoking the compiler as part of their
+ ;; initialization.
(show-and-call !reader-cold-init)
(let ((*readtable* *standard-readtable*))
(show-and-call !sharpm-cold-init)
(/show0 "done initializing")
(setf *cold-init-complete-p* t)
- ;; Unintern no-longer-needed stuff before we GC.
- #!-sb-fluid
- (!unintern-init-only-stuff)
-
;; The system is finally ready for GC.
#!-gengc (setf *already-maybe-gcing* nil)
(/show0 "enabling GC")