From 9471b3cabfd4b0e966a9e3bda6cb4774a880a055 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Tue, 25 Feb 2003 15:51:17 +0000 Subject: [PATCH] Solaris dumps core when printing NULL strings, so don't do that. --- lisp/lisp.c | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/lisp.c b/lisp/lisp.c index d01fc6f7c..dca883e75 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.29 2003/02/18 15:48:29 gerd Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.30 2003/02/25 15:51:17 toy Exp $ * */ @@ -441,8 +441,12 @@ int main(int argc, char *argv[], char *envp[]) struct stat statbuf; if (stat(core, &statbuf) != 0) { - /* Can't find it so print a message and die */ - fprintf(stderr, "Cannot find core file %s\n", core); + /* Can't find it so print a message and exit */ + fprintf(stderr, "Cannot find core file"); + if (core != NULL) { + fprintf(stderr, " %s", core); + } + fprintf(stderr, "\n"); exit(1); } } -- GitLab