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.

diff --git a/NEWS b/NEWS
index 33c7dc4..acf60de 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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"