From 4f8254f9a128aecc02fc53986ddf2645d8810c24 Mon Sep 17 00:00:00 2001 From: Nathan Froyd Date: Mon, 28 Mar 2005 15:27:53 +0000 Subject: [PATCH] 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* --- NEWS | 4 ++-- src/cold/shared.lisp | 8 +++++++- version.lisp-expr | 2 +- 3 files changed, 10 insertions(+), 4 deletions(-) diff --git a/NEWS b/NEWS index 3b6d72c..ea7f290 100644 --- 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 --- 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 --- 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" -- 1.7.10.4