;; initialized yet.)
(setq *print-length* 10)
(setq *print-level* 5)
+ (setq *print-circle* t)
;; Do warm init.
#+sb-show (print "/about to LOAD warm.lisp")
;; control variables to their ANSI defaults.
(setq *print-length* nil)
(setq *print-level* nil)
+ (setq *print-circle* nil)
;; FIXME: Why is it that, at least on x86 sbcl-0.6.12.46,
;; GC :FULL T isn't nearly as effective as PURIFY here?
(sb-int:/show "done with warm.lisp, about to GC :FULL T")
(gc :full t))
+ ;; resetting compilation policy to neutral values in
+ ;; preparation for SAVE-LISP-AND-DIE as final SBCL core (not
+ ;; in warm.lisp because SB-C::*POLICY* has file scope)
+ (sb-int:/show "setting compilation policy to neutral values")
+ (proclaim '(optimize (compilation-speed 1)
+ (debug 1)
+ (inhibit-warnings 1)
+ (safety 1)
+ (space 1)
+ (speed 1)))
+
(sb-int:/show "done with warm.lisp, about to SAVE-LISP-AND-DIE")
;; Even if /SHOW output was wanted during build, it's probably
;; not wanted by default after build is complete. (And if it's