load-xc.lisp

   1 ;;; This can be loaded into Slime, xc-compile-file will produce trace output
   2 (load "src/cold/shared.lisp")
   3 (in-package "SB-COLD")
   4 (setf *host-obj-prefix* "obj/from-host/")
   5 (pushnew :sb-xc-host *features*)
   6 (pushnew :sb-xc-host-interactive *features*)
   7
   8 (load "src/cold/set-up-cold-packages.lisp")
   9 (load "src/cold/defun-load-or-cload-xcompiler.lisp")
  10
  11 (load-or-cload-xcompiler #'host-cload-stem)
  12 ;; (load-or-cload-xcompiler #'host-load-stem) ;; if the FASLs are already compiled
  13
  14 (rename-package :sb-xc :sb-xc '(:sb!xc))
  15
  16 (defun xc-compile-file (file)
  17   (sb-xc:with-compilation-unit ()
  18     (sb-xc:compile-file file :trace-file *standard-output*)
  19     (setf sb!c::*undefined-warnings* nil)))