Changeset 8218


Ignore:
Timestamp:
Jan 18, 2008, 6:21:52 PM (12 years ago)
Author:
gb
Message:

GEN-FILE-NAME (used to create temporary names for (OPEN .. :IF-EXISTS
:SUPERSEDE) uses (%CREATE-FILE ... :IF-EXISTS NIL) to to try to avoid
race conditions.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-streams.lisp

    r7733 r8218  
    55725572         (tem-path (merge-pathnames (make-pathname :name (%integer-to-string date) :type "tem" :defaults nil) path)))
    55735573    (loop
    5574       (when (not (probe-file tem-path)) (return tem-path))
     5574      (when (%create-file tem-path :if-exists nil) (return tem-path))     
    55755575      (setf (%pathname-name tem-path) (%integer-to-string (setq date (1+ date)))))))
    55765576
Note: See TracChangeset for help on using the changeset viewer.