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

Allow specifying path to ucd data for make-target-2

Browse source
This commit is contained in:
Douglas Katzman 2024-01-17 17:36:51 -05:00
parent 973cafa3c7
commit c664466634
2 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
cross-make.sh
View file

@ -51,7 +51,7 @@ mv build-id.inc output
# make-host-1 and copy the generated C headers to the target machine
sh make-host-1.sh
tar cf - src/runtime/genesis | ssh $ssh_port_opt $host cd $root \; tar xf -
tar cf - src/runtime/genesis output/ucd | ssh $ssh_port_opt $host cd $root \; tar xf -
# make-target-1 and copy back the artifacts
ssh $ssh_port_opt $host cd $root \; $ENV sh make-target-1.sh

8
src/code/warm-target-unicode.lisp
View file

@ -13,8 +13,12 @@
(eval-when (:compile-toplevel :execute)
(defun read-from-file (namestring &key (enforce-single-expr t) build-dependent)
(declare (ignore build-dependent))
(with-open-file (s namestring)
(declare (notinline concatenate) (ignore build-dependent))
(with-open-file
(s (concatenate 'string (if (boundp 'cl-user::*generated-sources-root*)
(symbol-value 'cl-user::*generated-sources-root*)
"")
namestring))
(let* ((result (read s))
(eof-result (cons nil nil)))
(unless enforce-single-expr