[Sbcl-commits] CVS: sbcl/src/code fd-stream.lisp,1.42,1.43

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20507/src/code

Modified Files:
	fd-stream.lisp 
Log Message:
0.8.7.23:
	Fix some OPEN tests
	... :DIRECTION :IO didn't work if the file didn't exist, despite
		default being :CREATE
	... adjust filesys test to cope with new disallowed
		:WILD-INFERIORS :UP
	... we still fail some OPEN tests in PFD's suite: some are because
		of not supporting (unsigned-byte 33) streams, while the
		rest are because DIRECTORY is broken on logical pathnames,
		*sigh*


Index: fd-stream.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/fd-stream.lisp,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -d -r1.42 -r1.43
--- fd-stream.lisp	27 Jan 2004 10:34:58 -0000	1.42
+++ fd-stream.lisp	27 Jan 2004 12:02:46 -0000	1.43
@@ -1106,6 +1106,8 @@
 	   (namestring
 	    (cond ((unix-namestring pathname input))
 		  ((and input (eq if-does-not-exist :create))
+		   (unix-namestring pathname nil))
+		  ((and (eq direction :io) (not if-does-not-exist-given))
 		   (unix-namestring pathname nil)))))
       ;; Process if-exists argument if we are doing any output.
       (cond (output