From bd1c8820f5cac89bd4bda7d3d8573a560770c8bf Mon Sep 17 00:00:00 2001 From: pmai <pmai> Date: Tue, 29 Jan 2002 01:23:33 +0000 Subject: [PATCH] Print a warning if we can't find a core file in the specified CMUCLLIB path and therefore fall back to the default path. Doing this fall-back silently can confuse users no end... --- lisp/lisp.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/lisp.c b/lisp/lisp.c index 7d4c26ccd..95351b85b 100644 --- a/lisp/lisp.c +++ b/lisp/lisp.c @@ -1,7 +1,7 @@ /* * main() entry point for a stand alone lisp image. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.24 2001/11/29 01:46:59 pmai Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.25 2002/01/29 01:23:33 pmai Exp $ * */ @@ -174,6 +174,10 @@ int main(int argc, char *argv[], char *envp[]) break; } } while (*lib++ == ':'); + + if (core == NULL) + fprintf(stderr, "WARNING: Couldn't find core in specified CMUCLLIB, using default path.\n"); + } if (core == NULL) { /* Note: the /usr/misc/.cmucl/lib/ default path is also wired -- GitLab