X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftoplevel.lisp;h=11bb423a0c1f9c6fedd7fd4e9fb0b6dc4be42c51;hb=568daf6b160280428701670b921f419aabd9eba0;hp=db36cfbaa732beaf2b91bf4c29a7df4bbac89aac;hpb=c03ebb54770cfa613d4b706a80e5be231786a5d0;p=sbcl.git diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp index db36cfb..11bb423 100644 --- 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