X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffilesys.lisp;h=960cf4e385f7d1e0330dbd22357b23b74c2edaed;hb=9de65d498a9da0c70a60ea2bf9b5af39aaffe55d;hp=b51c6014e5ce9f48f0f0db989472da93cbf87830;hpb=cf49f2d086069a9c1b57f501df9a6a0bd3a34c3c;p=sbcl.git

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index b51c601..960cf4e 100644
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -579,8 +579,7 @@ exist or if is a file or a symbolic link."
     ;; SBCL_HOME isn't set for :EXECUTABLE T embedded cores
     (when (and sbcl-home (not (string= sbcl-home "")))
       (parse-native-namestring sbcl-home
-                               #!-win32 sb!impl::*unix-host*
-                               #!+win32 sb!impl::*win32-host*
+                               *physical-host*
                                *default-pathname-defaults*
                                :as-directory t))))
 
@@ -606,8 +605,7 @@ system. HOST argument is ignored by SBCL."
     (or (user-homedir-namestring)
         #!+win32
         (sb!win32::get-folder-namestring sb!win32::csidl_profile))
-    #!-win32 sb!impl::*unix-host*
-    #!+win32 sb!impl::*win32-host*
+    *physical-host*
     *default-pathname-defaults*
     :as-directory t)))