make-genesis-2.lisp

   1 (setf *print-level* 5 *print-length* 5)
   2 (load "src/cold/shared.lisp")
   3 (in-package "SB-COLD")
   4 (setf *host-obj-prefix* "obj/from-host/"
   5       *target-obj-prefix* "obj/from-xc/")
   6 (load "src/cold/set-up-cold-packages.lisp")
   7 (load "src/cold/defun-load-or-cload-xcompiler.lisp")
   8 (load-or-cload-xcompiler #'host-load-stem)
   9 (defparameter *target-object-file-names*
  10   (with-open-file (s "output/object-filenames-for-genesis.lisp-expr"
  11                      :direction :input)
  12     (read s)))
  13 (host-cload-stem "src/compiler/generic/genesis" nil)
  14
  15 (defparameter *preload-object-file*
  16   (or (stem-remap-target
  17        "obj/from-xc/src/assembly/target/tramps.assem-obj")
  18       nil))
  19
  20 (sb-cold:genesis :object-file-names *target-object-file-names*
  21                :preload-file *preload-object-file*
  22                :c-header-dir-name "output/genesis-2"
  23                :symbol-table-file-name "src/runtime/sbcl.nm"
  24                :core-file-name "output/cold-sbcl.core"
  25                ;; The map file is not needed by the system, but can be
  26                ;; very handy when debugging cold init problems.
  27                :map-file-name "output/cold-sbcl.map")
  28 #+cmu (ext:quit)
  29 #+clisp (ext:quit)
  30 #+abcl (ext:quit)