Changeset 15270

Timestamp:

Mar 23, 2012, 12:46:03 PM (13 years ago)

Author:

Gary Byers

Message:

In MAKE-FILE-STREAM: if FD-OPEN returns (- #$ENOENT) and
IF-DOES-NOT-EXIST is NIL, return NIL. (This can happen if
the path's apparent presence changes between the earlier PROBE-FILE
call and the FD-OPEN.)

File:

• trunk/source/level-1/l1-sysio.lisp (modified) (1 diff)

trunk/source/level-1/l1-sysio.lisp

@@ -814 +814 @@
                                               (:output #$O_WRONLY)
                                               (:io #$O_RDWR)))))
-          (when (< fd 0)  (signal-file-error fd filename))
+          (when (< fd 0)
+            (if (and (eql fd (- #$ENOENT))
+                     (null if-does-not-exist))
+              (return-from open nil)
+              (signal-file-error fd filename)))
           (let* ((pos (fd-lseek fd 0 #$SEEK_CUR)))
             (if (not (>= pos 0))