projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.22.7: Update to ASDF 1.130
[sbcl.git]
/
src
/
code
/
filesys.lisp
diff --git
a/src/code/filesys.lisp
b/src/code/filesys.lisp
index
20a0c1e
..
1a42e7d
100644
(file)
--- 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
;; 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))))
*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)))
;; 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))))
*default-pathname-defaults*
:as-directory t))))