0.7.12.24

[sbcl.git] / src / runtime / runtime.c

diff --git a/src/runtime/runtime.c b/src/runtime/runtime.c
index 55f4d50..908bd8c 100644 (file)
--- a/src/runtime/runtime.c
+++ b/src/runtime/runtime.c
@@ -271,10 +271,12 @@ main(int argc, char *argv[], char *envp[])
            core = copied_existing_filename_or_null(lookhere);
            free(lookhere);
        } else {
-           core = copied_existing_filename_or_null("/usr/lib/sbcl.core");
+           putenv("SBCL_HOME=/usr/local/lib/sbcl/");
+           core = copied_existing_filename_or_null("/usr/local/lib/sbcl/sbcl.core");
            if (!core) {
+               putenv("SBCL_HOME=/usr/lib/sbcl/");
                core =
-                   copied_existing_filename_or_null("/usr/local/lib/sbcl.core");
+                   copied_existing_filename_or_null("/usr/lib/sbcl/sbcl.core");
            }
        }
        if (!core) {