Changeset 15280 for release/1.8


Ignore:
Timestamp:
Mar 28, 2012, 4:54:37 PM (7 years ago)
Author:
rme
Message:

Merge r15270 from trunk.

Location:
release/1.8/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/1.8/source

  • release/1.8/source/level-1/l1-sysio.lisp

    r15239 r15280  
    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.