From 1bbd405c3c21f93db7aa956946738c8a3f30837d Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Thu, 8 May 2003 15:43:21 +0000 Subject: [PATCH] 0.8alpha.0.20: Make OpenMCL a suitable slamming host: ... fix slam.sh ... :if-exists :supersede for *output-files-for-genesis* Since OpenMCL builds still work, announce clisp as a suitable host for the cross-compiler. --- NEWS | 2 ++ make-host-2.sh | 6 +++--- slam.sh | 5 +++++ version.lisp-expr | 2 +- 4 files changed, 11 insertions(+), 4 deletions(-) diff --git a/NEWS b/NEWS index 33c7dc4..acf60de 100644 --- a/NEWS +++ b/NEWS @@ -1709,6 +1709,8 @@ changes in sbcl-0.8alpha.0 relative to sbcl-0.7.14 ** :ALLOW-OTHER-KEYS NIL is now accepted in an initarg list. changes in sbcl-0.8.0 relative to sbcl-0.8alpha.0 + * SBCL now builds using CLISP (version of late April 2003 from CVS) + as cross-compilation host. * minor incompatible change: the :NEGATIVE-ZERO-IS-NOT-ZERO feature no longer has any effect, as the code controlled by this feature has been deleted. (As far as we know, no-one has ever built using diff --git a/make-host-2.sh b/make-host-2.sh index c57fe2c..c359595 100644 --- a/make-host-2.sh +++ b/make-host-2.sh @@ -112,7 +112,7 @@ $SBCL_XC_HOST <<-'EOF' || exit 1 ;;; (let ((filename "output/object-filenames-for-genesis.lisp-expr")) (ensure-directories-exist filename :verbose t) - (with-open-file (s filename :direction :output) + (with-open-file (s filename :direction :output :if-exists :supersede) (write *target-object-file-names* :stream s :readably t))) ;; Let's check that the type system was reasonably sane. (It's ;; easy to spend a long time wandering around confused trying @@ -127,8 +127,8 @@ $SBCL_XC_HOST <<-'EOF' || exit 1 (when (position :sb-after-xc-core *shebang-features*) #+cmu (ext:save-lisp "output/after-xc.core" :load-init-file nil) #+sbcl (sb-ext:save-lisp-and-die "output/after-xc.core") - #+clisp (ext:saveinitmem "output/after-xc.core") - ) + #+openmcl (ccl::save-application "output/after-xc.core") + #+clisp (ext:saveinitmem "output/after-xc.core")) #+cmu (ext:quit) #+clisp (ext:quit) EOF diff --git a/slam.sh b/slam.sh index 8b10301..632672b 100644 --- a/slam.sh +++ b/slam.sh @@ -86,6 +86,11 @@ case "$HOST_TYPE" in INIT="-norc" CORE="-M" ;; + openmcl) + LISP="openmcl" + INIT="-b" + CORE="-I" + ;; *) echo unknown host type: "$HOST_TYPE" echo should be one of "sbcl", "cmucl", or "clisp" exit 1 diff --git a/version.lisp-expr b/version.lisp-expr index dd7c2b5..1176a5f 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.8alpha.0.19" +"0.8alpha.0.20" -- 1.7.10.4