From 0a1b062490494e5a2d8c559d1747b57adcc6aee5 Mon Sep 17 00:00:00 2001 From: Juho Snellman Date: Fri, 28 Jul 2006 20:09:08 +0000 Subject: [PATCH] 0.9.15.4: If the core wasn't found on startup, don't just say we couldn't find it, but also where sbcl thought the core should be. --- src/runtime/runtime.c | 8 +++++--- version.lisp-expr | 2 +- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/src/runtime/runtime.c b/src/runtime/runtime.c index 5bf3f4d..96ec232 100644 --- a/src/runtime/runtime.c +++ b/src/runtime/runtime.c @@ -67,7 +67,7 @@ #endif #ifndef SBCL_HOME -#define SBCL_HOME "/usr/local/lib/sbcl/" +#define SBCL_HOME "/opt/packages/sbcl/0.9.15.1/lib/sbcl/" #endif @@ -199,11 +199,13 @@ search_for_core () sizeof(char)); sprintf(lookhere, "%s%s", sbcl_home, stem); core = copied_existing_filename_or_null(lookhere); - free(lookhere); + if (!core) { - lose("can't find core file\n"); + lose("can't find core file at %s\n", lookhere); } + free(lookhere); + return core; } diff --git a/version.lisp-expr b/version.lisp-expr index b016bb5..553bb6c 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.9.15.3" +"0.9.15.4" -- 1.7.10.4