From 4fb20b24fd94fca847d6124b9388a2db8be68e2a Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Tue, 18 Feb 2003 15:48:29 +0000
Subject: [PATCH] 	* lisp/lisp.c (default_cmucllib): Initialize *defpath
 to 0, so 	that a subsequent strcat works as expected.

---
 lisp/lisp.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/lisp.c b/lisp/lisp.c
index be8274842..d01fc6f7c 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.28 2003/01/29 19:47:49 toy Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.29 2003/02/18 15:48:29 gerd Exp $
  *
  */
 
@@ -162,6 +162,7 @@ default_cmucllib(char* argv0)
 	/* Create the colon separated list of directories */
 	
         defpath = malloc(total_len + 1);
+	*defpath = '\0';
 
         ptr = cmucllib_search_list;
         while (*ptr != NULL) {
-- 
GitLab