Changeset 15270 for trunk/source/level-1


Ignore:
Timestamp:
Mar 23, 2012, 7:46:03 PM (7 years ago)
Author:
gb
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-sysio.lisp

    r15236 r15270  
    814814                                              (:output #$O_WRONLY)
    815815                                              (:io #$O_RDWR)))))
    816           (when (< fd 0)  (signal-file-error fd filename))
     816          (when (< fd 0)
     817            (if (and (eql fd (- #$ENOENT))
     818                     (null if-does-not-exist))
     819              (return-from open nil)
     820              (signal-file-error fd filename)))
    817821          (let* ((pos (fd-lseek fd 0 #$SEEK_CUR)))
    818822            (if (not (>= pos 0))
Note: See TracChangeset for help on using the changeset viewer.