diff --git a/ldb/ldb.c b/ldb/ldb.c index cadd5c31a58312a155188e0ad0fe4282e1d8d160..338e5bcba1b8ce356bb48b6aeb6aec699c6163c4 100644 --- a/ldb/ldb.c +++ b/ldb/ldb.c @@ -1,4 +1,4 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.c,v 1.3 1990/03/28 22:49:54 ch Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.c,v 1.4 1990/03/29 21:20:07 ch Exp $ */ /* Lisp kernel core debugger */ #include <stdio.h> @@ -36,10 +36,10 @@ char *list[]; } -main(argc, argv, argp) +main(argc, argv, envp) int argc; char *argv[]; -char *argp[]; +char *envp[]; { char *arg, **argptr; char *core = NULL; @@ -73,8 +73,11 @@ char *argp[]; globals_init(); + interrupt_init(); + + /* Convert the argv and envp to something Lisp can grok. */ SetSymbolValue(LISP_COMMAND_LINE_LIST, alloc_str_list(argv)); - SetSymbolValue(LISP_ENVIRONMENT_LIST, alloc_str_list(argp)); + SetSymbolValue(LISP_ENVIRONMENT_LIST, alloc_str_list(envp)); test_init();