From: Rudi S. <ru...@us...> - 2007-10-26 04:33:38
|
Update of /cvsroot/sbcl/sbcl/contrib/asdf In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv3664/contrib/asdf Modified Files: asdf.lisp Log Message: 1.0.11.1: Handle set-but-empty environment variables ... SBCL_HOME= sbcl crashed on startup ... Patch by Michael Weber Index: asdf.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/contrib/asdf/asdf.lisp,v retrieving revision 1.24 retrieving revision 1.25 diff -u -d -r1.24 -r1.25 --- asdf.lisp 7 Nov 2006 10:51:42 -0000 1.24 +++ asdf.lisp 26 Oct 2007 04:33:34 -0000 1.25 @@ -1191,7 +1191,7 @@ (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 @@ -1205,7 +1205,7 @@ (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*) |