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
|