Commit 0e098884 authored by rtoy's avatar rtoy
Browse files

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.
parent eb604266

code/fd-stream.lisp

+2 −2
Original line number Diff line number Diff line
@@ -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))))

general-info/release-20c.txt

+2 −0
Original line number Diff line number Diff line
@@ -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.