Changeset 8218

Timestamp:

Jan 18, 2008, 10:21:52 AM (17 years ago)

Author:

Gary Byers

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:

• branches/working-0711/ccl/level-1/l1-streams.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-streams.lisp

@@ -5572 +5572 @@
          (tem-path (merge-pathnames (make-pathname :name (%integer-to-string date) :type "tem" :defaults nil) path)))
     (loop
-      (when (not (probe-file tem-path)) (return tem-path))
+      (when (%create-file tem-path :if-exists nil) (return tem-path))      
       (setf (%pathname-name tem-path) (%integer-to-string (setq date (1+ date)))))))