X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftoplevel.lisp;h=db36cfbaa732beaf2b91bf4c29a7df4bbac89aac;hb=c03ebb54770cfa613d4b706a80e5be231786a5d0;hp=f2147a6e568ce9f77f309ebc9d558da18baef060;hpb=2365c1b81d99c8e8e34665052f5b47be5cd6cd74;p=sbcl.git

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index f2147a6..db36cfb 100644
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -489,10 +489,20 @@ steppers to maintain contextual information.")
                #!-win32 (probe-init-files sysinit
                                           (init-file-name (posix-getenv "SBCL_HOME")
                                                           "sbclrc")
-                                          "/etc/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"))))
 
           ;; This CATCH is needed for the debugger command TOPLEVEL to