;;; (We want to have some limit on print length and print level during
;;; bootstrapping because PRINT-OBJECT only gets set up rather late,
;;; and running without PRINT-OBJECT it's easy to fall into printing
;;; enormous (or infinitely circular) low-level representations of
(setf *print-level* 5 *print-length* 5)
(setf *host-obj-prefix* "obj/from-host/")
(set-dispatch-macro-character #\# #\+ #'she-reader)
(set-dispatch-macro-character #\# #\- #'she-reader)
;;; Let's check that the type system, and various other things, are
;;; reasonably sane. (It's easy to spend a long time wandering around
;;; confused trying to debug cross-compilation if it isn't.)
(when (find :sb-test *shebang-features*)
;;; Generate character database tables.
;;; propagate structure offset and other information to the C runtime
;;; support code.
(sb!vm:genesis :c-header-dir-name "src/runtime/genesis")