From 257c3a31632db23b2811188e544281f29cf12f62 Mon Sep 17 00:00:00 2001
From: cracauer <cracauer>
Date: Mon, 28 Apr 2003 23:07:38 +0000
Subject: [PATCH] Don't damage argv[0] when startup code is invoced with
 absolute path.

If we ever do a patch release this should be in.
---
 lisp/lisp.c | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lisp/lisp.c b/lisp/lisp.c
index dca883e75..b11b3bbc6 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.30 2003/02/25 15:51:17 toy Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.31 2003/04/28 23:07:38 cracauer Exp $
  *
  */
 
@@ -99,11 +99,12 @@ static char* cmucllib_search_list[] =
  * default for CMUCLLIB
  */
 char *
-default_cmucllib(char* argv0)
+default_cmucllib(const char const* argv0arg)
 {
     char* p;
     char* defpath;
     char* cwd;
+    char *argv0 = strdup(argv0arg);
     
     /*
      * From argv[0], create the appropriate directory by lopping off the
@@ -183,7 +184,8 @@ default_cmucllib(char* argv0)
 	    abort();
 	}
     }
-    
+
+    free(argv0);
     free(cwd);
 
     return defpath;
-- 
GitLab