mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
18 lines
587 B
Common Lisp
18 lines
587 B
Common Lisp
;;; This can be loaded into Slime, xc-compile-file will produce trace output
|
|
(load "src/cold/shared.lisp")
|
|
(in-package "SB-COLD")
|
|
(setf *host-obj-prefix* "obj/from-host/")
|
|
(pushnew :sb-xc-host *features*)
|
|
(pushnew :sb-xc-host-interactive *features*)
|
|
|
|
(load "src/cold/set-up-cold-packages.lisp")
|
|
(load "src/cold/defun-load-or-cload-xcompiler.lisp")
|
|
|
|
(load-or-cload-xcompiler #'host-cload-stem)
|
|
|
|
(defun xc-compile-file (file)
|
|
(sb!c::init-xc-policy)
|
|
(sb!xc:with-compilation-unit ()
|
|
(sb!xc:compile-file file :trace-file *standard-output*)
|
|
(setf sb!c::*undefined-warnings* nil)))
|