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

parent efc0f737
......@@ -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 ()
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment