Changeset 13314

Timestamp:

06/09/11 06:03:20 (13 years ago)

Author:

Mark Evenson

Message:

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

File:

• trunk/abcl/test/lisp/abcl/jar-pathname.lisp (modified) (1 diff)

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

@@ -3 +3 @@
 (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*