0.8.21.4:

	When determining the absolute pathname of an object file, make
	  COMPILE-STEM more tolerant of object files that already exist.

	Fix NEWS entry from last commit.  *sigh*

diff --git a/NEWS b/NEWS
index 3b6d72c..ea7f290 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1,7 +1,7 @@
 changes in sbcl-0.8.22 relative to sbcl-0.8.21:
   * incompatible change: the --noprogrammer option, deprecated since
-    version 0.7.5.  Please use the equivalent --disable-debugger
-    option instead.
+    version 0.7.5, has been removed.  Please use the equivalent
+    --disable-debugger option instead.
   * fixed inference of the upper bound of an iteration variable.
     (reported by Rajat Datta).
   * fixed bug 376: CONJUGATE type deriver.

diff --git a/src/cold/shared.lisp b/src/cold/shared.lisp
index 95f125a..c6f9922 100644 (file)
--- a/src/cold/shared.lisp
+++ b/src/cold/shared.lisp
@@ -170,7 +170,13 @@
     (setf tmp-obj
          ;; (Note that this idiom is taken from the ANSI
          ;; documentation for TRUENAME.)
-         (with-open-file (stream tmp-obj :direction :output)
+         (with-open-file (stream tmp-obj
+                                  :direction :output
+                                  ;; Compilation would overwrite the
+                                  ;; temporary object anyway and overly
+                                  ;; strict implementations default
+                                  ;; to :ERROR.
+                                  :if-exists :supersede)
            (close stream)
            (truename stream)))
     ;; and some compilers (e.g. OpenMCL) will complain if they're

diff --git a/version.lisp-expr b/version.lisp-expr
index 333286e..d58a62c 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.8.21.3"
+"0.8.21.4"