diff --git a/lisp/lisp.c b/lisp/lisp.c index be82748421cedd8e81920ebe7102d0d625cd2e0c..d01fc6f7cd48aef5141d17f114882f61aca92fb2 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) {