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