From: Rudi S. <ru...@us...> - 2007-10-26 04:33:39
|
Update of /cvsroot/sbcl/sbcl/contrib/asdf-install In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv3664/contrib/asdf-install Modified Files: installer.lisp Log Message: 1.0.11.1: Handle set-but-empty environment variables ... SBCL_HOME= sbcl crashed on startup ... Patch by Michael Weber Index: installer.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/contrib/asdf-install/installer.lisp,v retrieving revision 1.20 retrieving revision 1.21 diff -u -d -r1.20 -r1.21 --- installer.lisp 12 Feb 2007 03:12:40 -0000 1.20 +++ installer.lisp 26 Oct 2007 04:33:34 -0000 1.21 @@ -2,8 +2,9 @@ (defvar *proxy* (posix-getenv "http_proxy")) (defvar *cclan-mirror* - (or (posix-getenv "CCLAN_MIRROR") - "http://ftp.linux.org.uk/pub/lisp/cclan/")) + (let ((mirror (posix-getenv "CCLAN_MIRROR"))) + (or (and (not (string= mirror "")) mirror) + "http://ftp.linux.org.uk/pub/lisp/cclan/"))) (defun directorify (name) ;; input name may or may not have a training #\/, but we know we |