Skip to content
Snippets Groups Projects
Commit 4fb20b24 authored by gerd's avatar gerd
Browse files

* lisp/lisp.c (default_cmucllib): Initialize *defpath to 0, so

	that a subsequent strcat works as expected.
parent b945819a
No related branches found
No related tags found
No related merge requests found
/*
* 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) {
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment