0.9.12:

[sbcl.git] / src / code / toplevel.lisp

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index db36cfb..d218fd5 100644 (file)
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -491,11 +491,11 @@ steppers to maintain contextual information.")
                                                           "sbclrc")
                                           "/etc/sbclrc")
                #!+win32 (probe-init-files sysinit
-                                         (init-file-name (posix-getenv "SBCL_HOME")
+                                          (init-file-name (posix-getenv "SBCL_HOME")
                                                           "sbclrc")
-                                         (concatenate 'string
-                                                      (sb!win32::get-folder-path 35) ;;SB-WIN32::CSIDL_COMMON_APPDATA
-                                                      "\\sbcl\\sbclrc")))
+                                          (concatenate 'string
+                                                       (sb!win32::get-folder-path 35) ;;SB-WIN32::CSIDL_COMMON_APPDATA
+                                                       "\\sbcl\\sbclrc")))
 
                (userinit-truename
                 #!-win32 (probe-init-files userinit
@@ -588,6 +588,7 @@ steppers to maintain contextual information.")
                      ;; In the event of a control-stack-exhausted-error, we
                      ;; should have unwound enough stack by the time we get
                      ;; here that this is now possible.
+                     #!-win32
                      (sb!kernel::protect-control-stack-guard-page 1)
                      (funcall repl-fun noprint)
                      (critically-unreachable "after REPL"))))))))))