Changeset 13946

Timestamp:

05/24/12 11:26:06 (12 years ago)

Author:

Mark Evenson

Message:

Use java.io.File routine to guarantee uniquely non-existing pathname for EXT:MAKE-TEMP-DIRECTORY.

File:

• trunk/abcl/src/org/armedbear/lisp/Extensions.java (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/Extensions.java

@@ -293 +293 @@
     {
       try {
-          String tmpdir = System.getProperty("java.io.tmpdir");
-          String name = Primitives.GENSYM.execute().getStringValue();
-          File dir = new File(tmpdir, name);
-
-          if (dir.mkdirs()) {
-            return new Pathname(dir + "/");
-          }
+        File dir = File.createTempFile("abcl", null);
+        dir.delete();
+        if (dir.mkdirs()) {
+          return new Pathname(dir + "/");
+        }
       } catch (Throwable t) {
         Debug.trace(t);