common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

fix load-xc.lisp to load, not cload

Browse source 
make a new cload-xc.lisp file to cload if wanted
This commit is contained in:
Christophe Rhodes 2018-08-13 17:43:16 +01:00 committed by Charles Zhang
parent 3f20795ee0
commit 31a71ea7fe
2 changed files with 19 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
cload-xc.lisp Normal file
View file

@ -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)))

4
load-xc.lisp
View file

@ -8,10 +8,10 @@
(load "src/cold/set-up-cold-packages.lisp") (load "src/cold/set-up-cold-packages.lisp")
(load "src/cold/defun-load-or-cload-xcompiler.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) (defun xc-compile-file (file)
(sb-c::init-xc-policy)
(sb-xc:with-compilation-unit () (sb-xc:with-compilation-unit ()
(sb-xc:compile-file file :trace-file *standard-output*) (sb-xc:compile-file file :trace-file *standard-output*)
(setf sb-c::*undefined-warnings* nil))) (setf sb-c::*undefined-warnings* nil)))