[cmucl-commit] CMUCL commit: src (code/fd-stream.lisp general-info/release-20c.txt)

[Raymond Toy]

    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.