diff --git a/code/fd-stream.lisp b/code/fd-stream.lisp index 0df5127011bb5a833afee7a5c469c8db193160e1..5ad4a379fe7b9a8dc009ad3bfc6416718a3491b9 100644 --- a/code/fd-stream.lisp +++ b/code/fd-stream.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.122 2010/10/13 18:00:44 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/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)))) diff --git a/general-info/release-20c.txt b/general-info/release-20c.txt index b6fed52119ab408bd84f403f53e541b8a797b5ec..9f036e71acb7ef690a91564bd984e4efe6f52938 100644 --- a/general-info/release-20c.txt +++ b/general-info/release-20c.txt @@ -71,6 +71,8 @@ New in this release: - 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.