Ignore:
Timestamp:
Jan 12, 2010, 10:02:43 PM (10 years ago)
Author:
gb
Message:

In GEN-FILE-NAME, use RANDOM (rather than FILE-WRITE-NAME) to generate
a proposed file name for (OPEN ... :IF-EXISTS :SUPERSEDE).

In %CREATE-FILE: if :IF-EXISTS is NIL and Windows returns EACCESS, treat
that as "file exists" and return NIL.

File:
1 edited

Legend:

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

    r13067 r13385  
    226226    (if (< fd 0)
    227227      (if (and (null if-exists)
    228                (eql fd (- #$EEXIST)))
     228               (or (eql fd (- #$EEXIST))
     229                   #+windows-target
     230                   (and (eql fd (- #$EPERM))
     231                        (probe-file path))))
    229232        (return-from %create-file nil)
    230233        (signal-file-error fd path))
Note: See TracChangeset for help on using the changeset viewer.