Date: Wednesday, February 16, 2011 @ 21:55:46 Author: rtoy Path: /project/cmucl/cvsroot/src

Modified: code/fd-stream.lisp general-info/release-20c.txt

Fix ansi-test failure OPEN.IO.28:

(OPEN PN :DIRECTION :IO :IF-DOES-NOT-EXIST NIL)

no longer signals an error.

code/fd-stream.lisp: o Don't try to create a new version if there's no existing file

general-info/release-20c.txt: o Update.

------------------------------+ code/fd-stream.lisp | 4 ++-- general-info/release-20c.txt | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-)

Index: src/code/fd-stream.lisp diff -u src/code/fd-stream.lisp:1.122 src/code/fd-stream.lisp:1.123 --- src/code/fd-stream.lisp:1.122 Wed Oct 13 14:00:44 2010 +++ src/code/fd-stream.lisp Wed Feb 16 21:55:45 2011 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/fd-stream.lisp,v 1.122 2010-10-13 18:00:44 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/fd-stream.lisp,v 1.123 2011-02-17 02:55:45 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -2067,7 +2067,7 @@ (let ((name (cond ((unix-namestring pathname input)) ((and input (eq if-does-not-exist :create)) (unix-namestring pathname nil))))) - (let ((original (cond ((eq if-exists :new-version) + (let ((original (cond ((and name (eq if-exists :new-version)) (next-version name)) ((member if-exists '(:rename :rename-and-delete)) (pick-backup-name name)))) Index: src/general-info/release-20c.txt diff -u src/general-info/release-20c.txt:1.17 src/general-info/release-20c.txt:1.18 --- src/general-info/release-20c.txt:1.17 Wed Feb 16 21:47:22 2011 +++ src/general-info/release-20c.txt Wed Feb 16 21:55:45 2011 @@ -71,6 +71,8 @@ - DEFSTRUCT allows multiple keyword constructors as required by the spec.. - In COMPILE-FILE, the :OUTPUT-FILE can also be a stream. + - (OPEN f :DIRECTION :IO :IF-DOES-NOT-EXIST NIL) no longer signals + an error if f does not exist. It returns NIL now.

* Bugfixes: - The pairwise composition table is now correctly built.