Changeset 13314


Ignore:
Timestamp:
06/09/11 06:03:20 (10 years ago)
Author:
Mark Evenson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/abcl/jar-pathname.lisp

    r13313 r13314  
    33(defvar *jar-file-init* nil)
    44
    5 (defparameter *tmp-directory*
    6   (make-pathname
    7    :directory (append
    8                (pathname-directory (pathname
    9                                     (java:jcall "getAbsolutePath"
    10                                                 (java:jstatic "createTempFile" "java.io.File"
    11                                                               "jar" "tmp"))))
    12                '("jar-pathname-tests"))))
    13 
     5(defparameter *tmp-directory* nil)
     6
     7(eval-when (:compile-toplevel :load-toplevel)
     8  (let ((temp-file (java:jcall "getAbsolutePath"
     9                               (java:jstatic "createTempFile" "java.io.File" "jar" "tmp"))))
     10    (setf *tmp-directory*
     11          (make-pathname :directory
     12                         (append
     13                          (pathname-directory (pathname temp-file))
     14                          '("jar-pathname-tests"))))))
    1415
    1516(defvar *foo.lisp*
Note: See TracChangeset for help on using the changeset viewer.