[armedbear-cvs] r13314 - trunk/abcl/test/lisp/abcl

[mevenson at common-lisp.net]

Author: mevenson
Date: Wed Jun  8 23:03:20 2011
New Revision: 13314

Log:
Explicitly intialize *TMP-DIRECTORY* at compile and load time.

Modified:
   trunk/abcl/test/lisp/abcl/jar-pathname.lisp

Modified: trunk/abcl/test/lisp/abcl/jar-pathname.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/jar-pathname.lisp	Wed Jun  8 09:03:16 2011	(r13313)
+++ trunk/abcl/test/lisp/abcl/jar-pathname.lisp	Wed Jun  8 23:03:20 2011	(r13314)
@@ -2,15 +2,16 @@
 
 (defvar *jar-file-init* nil)
 
-(defparameter *tmp-directory*
-  (make-pathname 
-   :directory (append 
-               (pathname-directory (pathname
-                                    (java:jcall "getAbsolutePath" 
-                                                (java:jstatic "createTempFile" "java.io.File" 
-                                                              "jar" "tmp"))))
-               '("jar-pathname-tests"))))
+(defparameter *tmp-directory* nil)
 
+(eval-when (:compile-toplevel :load-toplevel)
+  (let ((temp-file (java:jcall "getAbsolutePath" 
+                               (java:jstatic "createTempFile" "java.io.File" "jar" "tmp"))))
+    (setf *tmp-directory*
+          (make-pathname :directory 
+                         (append 
+                          (pathname-directory (pathname temp-file))
+                          '("jar-pathname-tests"))))))
 
 (defvar *foo.lisp*
   `((defun foo ()