X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ffilesys.lisp;h=b166710c4802211fcce619b52116d1092ce6c8a7;hb=0152c2971917eed5117f5d6b53653bd8424b6b1f;hp=53ff874e234af3edfcf5cdd02669f3b11ce02394;hpb=a757a48ad4a4531894203461ba5fb626a3ffc511;p=sbcl.git

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index 53ff874..b166710 100644
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -572,7 +572,7 @@ otherwise. An error of type FILE-ERROR is signaled if pathname is wild."
 (defun sbcl-homedir-pathname ()
   (let ((sbcl-home (posix-getenv "SBCL_HOME")))
     ;; SBCL_HOME isn't set for :EXECUTABLE T embedded cores
-    (when sbcl-home
+    (when (and sbcl-home (not (string= sbcl-home "")))
       (parse-native-namestring
        (ensure-trailing-slash sbcl-home)))))
 
@@ -587,8 +587,7 @@ system."
   (let ((env-home (posix-getenv "HOME")))
     (parse-native-namestring
      (ensure-trailing-slash
-      (if (and env-home
-               (not (equal env-home "")))
+      (if (and env-home (not (string= env-home "")))
           env-home
           #!-win32
           (sb!unix:uid-homedir (sb!unix:unix-getuid))