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