From 246e31c7257ea7e9c2b88fb8daf95e92e7bd794a Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Fri, 10 Jun 2011 19:32:31 +0000
Subject: [PATCH] Allow specifying a core with an executable image.

There's no reason why this shouldn't work and tests show that it does
work.  So instead of disallowing it, just print a warning that it is
unusual.  Fred also said this should work; it's just a bit odd running
a 30MB executable with a 30MB core.
---
 lisp/lisp.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/lisp.c b/lisp/lisp.c
index 2b8ca8686..1b56f8ad6 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.82 2011/05/31 13:26:41 rtoy Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.83 2011/06/10 19:32:31 rtoy Exp $
  *
  */
 
@@ -480,8 +480,8 @@ main(int argc, const char *argv[], const char *envp[])
 	if (strcmp(arg, "-core") == 0) {
 	    if (builtin_image_flag) {
 		fprintf(stderr,
-			"Cannot specify core file in executable image --- sorry about that.\n");
-		exit(1);
+			"Warning:  specifying a core file with an executable image is unusual,\nbut should work.\n");
+                builtin_image_flag = 0;
 	    }
 
 	    if (core != NULL) {
-- 
GitLab