X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffilesys.lisp;h=1a42e7d50aa46a2a31e1da07fd9906650d51e4da;hb=0cff6b0b7e6f1d148586f81f620b9c86ed217caa;hp=20a0c1eb5bd8df4b8d30bba9ed4eeb51f16d284c;hpb=a55afef22b32e46b61582da9aef388a8a1b8ec1d;p=sbcl.git

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index 20a0c1e..1a42e7d 100644
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -702,8 +702,8 @@ or if PATHSPEC is a wild pathname."
     ;; 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*
+                               #!-win32 sb!impl::*unix-host*
+                               #!+win32 sb!impl::*win32-host*
                                *default-pathname-defaults*
                                :as-directory t))))
 
@@ -727,8 +727,8 @@ system."
           ;; What?! -- RMK, 2007-12-31
           (return-from user-homedir-pathname
             (sb!win32::get-folder-pathname sb!win32::csidl_profile)))
-      #-win32 sb!impl::*unix-host*
-      #+win32 sb!impl::*win32-host*
+      #!-win32 sb!impl::*unix-host*
+      #!+win32 sb!impl::*win32-host*
       *default-pathname-defaults*
       :as-directory t))))