From 31a71ea7fe72d3ac2f76764cf38d36b5c3b48c54 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Mon, 13 Aug 2018 17:43:16 +0100 Subject: [PATCH] fix load-xc.lisp to load, not cload make a new cload-xc.lisp file to cload if wanted --- cload-xc.lisp | 17 +++++++++++++++++ load-xc.lisp | 4 ++-- 2 files changed, 19 insertions(+), 2 deletions(-) create mode 100644 cload-xc.lisp diff --git a/cload-xc.lisp b/cload-xc.lisp new file mode 100644 index 000000000..39ab77b63 --- /dev/null +++ b/cload-xc.lisp @@ -0,0 +1,17 @@ +;;; 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))) diff --git a/load-xc.lisp b/load-xc.lisp index e4cb9df41..b17bedd89 100644 --- a/load-xc.lisp +++ b/load-xc.lisp @@ -8,10 +8,10 @@ (load "src/cold/set-up-cold-packages.lisp") (load "src/cold/defun-load-or-cload-xcompiler.lisp") -(load-or-cload-xcompiler #'host-cload-stem) -;; (load-or-cload-xcompiler #'host-load-stem) ;; if the FASLs are already compiled +(load-or-cload-xcompiler #'host-load-stem) ;; if the FASLs are already compiled (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)))