common-lisp.net
/
projects/xcvb/xcvb.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
(parent:
57b2491
)
The default temporary directory is TMPDIR, not TMP.
author
Francois-Rene Rideau
<tunes@google.com>
Thu, 20 Sep 2012 18:24:47 +0000 (14:24 -0400)
committer
Francois-Rene Rideau
<tunes@google.com>
Thu, 20 Sep 2012 18:24:47 +0000 (14:24 -0400)
driver.lisp
patch
|
blob
|
blame
|
history
diff --git
a/driver.lisp
b/driver.lisp
index
94ae800
..
b2643ed
100644
(file)
--- a/
driver.lisp
+++ b/
driver.lisp
@@
-317,7
+317,7
@@
then returning the non-empty string value of the variable"
(defun default-temporary-directory ()
(flet ((f (s v d) (format nil "~A~A" (or (getenv v) d (error "No temporary directory!")) s)))
(let ((dir (cond
- ((os-unix-p) (f #\/ "TMP" "/tmp"))
+ ((os-unix-p) (f #\/ "TMPDIR" "/tmp"))
((os-windows-p) (f #\\ "TEMP" nil))))
#+mcl (dir (probe-posix dir)))
(pathname dir))))