Ignore:
Timestamp:
Jan 23, 2008, 5:50:07 AM (12 years ago)
Author:
gb
Message:

Handle and use (%CREATE-FILE ... :IF-EXISTS NIL).

File:
1 edited

Legend:

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

    r8170 r8237  
    773773              (return-from open nil)))
    774774          (if (setq filename (if-does-not-exist if-does-not-exist filename))
    775             (setq native-truename (%create-file filename))
     775            (unless (setq native-truename (%create-file filename :if-exists if-exists))
     776              (return-from open nil))
    776777            (return-from open nil)))
    777778        (let* ((fd (fd-open native-truename (case direction
Note: See TracChangeset for help on using the changeset viewer.