[armedbear-cvs] r13943 - trunk/abcl/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Thu May 24 04:11:41 2012
New Revision: 13943

Log:
Fix EXT:MAKE-TEMP-DIRECTORY not to create extra subdirectory 'xx'.

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

Modified: trunk/abcl/src/org/armedbear/lisp/Extensions.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Extensions.java	Thu May 24 02:50:34 2012	(r13942)
+++ trunk/abcl/src/org/armedbear/lisp/Extensions.java	Thu May 24 04:11:41 2012	(r13943)
@@ -295,9 +295,8 @@
           String tmpdir = System.getProperty("java.io.tmpdir");
           String name = Primitives.GENSYM.execute().getStringValue();
           File dir = new File(tmpdir, name);
-          File file = new File(dir, "xx");
 
-          if (file.mkdirs()) {
+          if (dir.mkdirs()) {
             return new Pathname(dir + "/");
           }
       } catch (Throwable t) {