Changeset 13384

Timestamp:

Jan 12, 2010, 2:02:16 PM (15 years ago)

Author:

Gary Byers

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:

• trunk/source/level-1/l1-streams.lisp (modified) (1 diff)

trunk/source/level-1/l1-streams.lisp

@@ -5810 +5810 @@
 
 (defun gen-file-name (path)
-  (let* ((date (file-write-date path))
-         (tem-path (merge-pathnames (make-pathname :name (%integer-to-string date) :type "tem" :defaults nil) path)))
+  (let* ((base (random (ash target::target-most-positive-fixnum -1)))
+         (tem-path (merge-pathnames (make-pathname :name (%integer-to-string base) :type "tem" :defaults nil) path)))
     (loop
       (when (%create-file tem-path :if-exists nil) (return tem-path))      
-      (setf (%pathname-name tem-path) (%integer-to-string (setq date (1+ date)))))))
+      (setf (%pathname-name tem-path) (%integer-to-string (setq base (1+ base)))))))
 
 (defun probe-file-x (path)