projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.13.1: Various cleanups and touchups in tests/
[sbcl.git]
/
contrib
/
asdf
/
asdf.lisp
diff --git
a/contrib/asdf/asdf.lisp
b/contrib/asdf/asdf.lisp
index
4005dc8
..
b1ad184
100644
(file)
--- a/
contrib/asdf/asdf.lisp
+++ b/
contrib/asdf/asdf.lisp
@@
-1191,7
+1191,7
@@
output to *VERBOSE-OUT*. Returns the shell's exit code."
(defun contrib-sysdef-search (system)
(let ((home (sb-ext:posix-getenv "SBCL_HOME")))
(defun contrib-sysdef-search (system)
(let ((home (sb-ext:posix-getenv "SBCL_HOME")))
- (when home
+ (when (and home (not (string= home "")))
(let* ((name (coerce-name system))
(home (truename home))
(contrib (merge-pathnames
(let* ((name (coerce-name system))
(home (truename home))
(contrib (merge-pathnames
@@
-1205,7
+1205,7
@@
output to *VERBOSE-OUT*. Returns the shell's exit code."
(pushnew
'(let ((home (sb-ext:posix-getenv "SBCL_HOME")))
(pushnew
'(let ((home (sb-ext:posix-getenv "SBCL_HOME")))
- (when home
+ (when (and home (not (string= home "")))
(merge-pathnames "site-systems/" (truename home))))
*central-registry*)
(merge-pathnames "site-systems/" (truename home))))
*central-registry*)