From 0e0988844e591c013155cfb7253f8fb50f711130 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Thu, 17 Feb 2011 02:55:45 +0000 Subject: [PATCH] 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(-) diff --git a/code/fd-stream.lisp b/code/fd-stream.lisp index 0df512701..5ad4a379f 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 b6fed5211..9f036e71a 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. -- GitLab