Fix get-default-temporary-directory on lispworks.

probe-file there returns something unpalatable. Fixes #26
edicl · Apr 14, 2018 · 74be0c9 · 74be0c9
1 parent 17f2e21
commit 74be0c9
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/temporary-files.lisp b/temporary-files.lisp
@@ -57,10 +57,8 @@
   #-win32
   (defun get-default-temporary-directory ()
     (or (directory-from-environment "TMPDIR")
-        #-clisp
-        (probe-file #P"/tmp/")
-        #+clisp
-        (and (ext:probe-directory #P"/tmp/")
+        (and #-clisp (probe-file #P"/tmp/")
+             #+clisp (ext:probe-directory #P"/tmp/")
              #P"/tmp/")))
 
   (handler-case