Update of /cvsroot/sbcl/sbcl/src/runtime
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv14594/src/runtime
Modified Files:
runtime.c
Log Message:
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.
Index: runtime.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/runtime.c,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -d -r1.61 -r1.62
--- runtime.c 26 Jun 2006 18:40:32 -0000 1.61
+++ runtime.c 28 Jul 2006 20:09:08 -0000 1.62
@@ -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 @@
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;
}
|