- #!-win32 (probe-init-files sysinit
- (init-file-name (posix-getenv "SBCL_HOME")
- "sbclrc")
- "/etc/sbclrc")
- #!+win32 (probe-init-files sysinit
- (init-file-name (posix-getenv "SBCL_HOME")
- "sbclrc")
- (concatenate 'string
- (sb!win32::get-folder-path 35) ;;SB-WIN32::CSIDL_COMMON_APPDATA
- "\\sbcl\\sbclrc")))
-
- (userinit-truename
- #!-win32 (probe-init-files userinit
- (init-file-name (posix-getenv "HOME")
- ".sbclrc"))
- #!+win32 (probe-init-files userinit
- (init-file-name (namestring (user-homedir-pathname))
- ".sbclrc"))))
-
+ (probe-init-files sysinit
+ (merge-pathnames (sbcl-homedir-pathname)
+ "sbclrc")
+ #!-win32
+ "/etc/sbclrc"
+ #!+win32
+ (merge-pathnames
+ (sb!win32::get-folder-pathname
+ sb!win32::csidl_common_appdata)
+ "\\sbcl\\sbclrc")))
+ (userinit-truename
+ (probe-init-files userinit
+ (merge-pathnames (user-homedir-pathname)
+ ".sbclrc"))))