Changeset 8621


Ignore:
Timestamp:
Feb 29, 2008, 4:08:31 AM (12 years ago)
Author:
gb
Message:

GEN-FILE-NAME (used to create temp file for :IF-EXISTS :SUPERSEDE):
use (%CREATE-FILE ... :IF-EXISTS NIL) to try to avoid race conditions.

File:
1 edited

Legend:

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

    r7968 r8621  
    55615561         (tem-path (merge-pathnames (make-pathname :name (%integer-to-string date) :type "tem" :defaults nil) path)))
    55625562    (loop
    5563       (when (not (probe-file tem-path)) (return tem-path))
     5563      (when (%create-file tem-path :if-exists nil) (return tem-path))     
    55645564      (setf (%pathname-name tem-path) (%integer-to-string (setq date (1+ date)))))))
    55655565
Note: See TracChangeset for help on using the changeset viewer.