From bc74ead74f389d0244e66111f84b1007d61f799d Mon Sep 17 00:00:00 2001 From: Samium Gromoff Date: Thu, 9 Apr 2009 21:08:13 +0400 Subject: [PATCH] Provide a sane default for the "TMP" pathname host on UNIX. --- src/lsp/config.lsp.in | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lsp/config.lsp.in b/src/lsp/config.lsp.in index ee1a0d659..02af3f7b0 100644 --- a/src/lsp/config.lsp.in +++ b/src/lsp/config.lsp.in @@ -121,6 +121,6 @@ Returns, as a string, the version of the software under which ECL runs." (probe-file x))) ((and (setf x (ext:getenv "TMP")) (probe-file x))) - (t (setf x "./"))) + (t (setf x #+unix "/tmp" #-unix "./"))) (si::pathname-translations "TMP" `(("**;*.*" ,(format nil "~A/**/*.*" x)))))