diff --git a/ldb/ldb.c b/ldb/ldb.c index 6c9d13392fccd3010a17e58d2d2700b2548dd9d2..ceb02711fd7b5a6ba39dfe93a6c3da604b2d8f6e 100644 --- a/ldb/ldb.c +++ b/ldb/ldb.c @@ -1,10 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.c,v 1.12 1991/05/03 07:55:49 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.c,v 1.13 1991/05/24 17:52:21 wlott Exp $ */ /* Lisp kernel core debugger */ #include <stdio.h> #include <sys/types.h> #include <sys/file.h> -#include <mach.h> #include "ldb.h" #include "lisp.h" @@ -73,6 +72,7 @@ char *envp[]; if (core == NULL) core = "/usr/misc/.cmucl/lib/lisp.core"; + arch_init(); os_init(); #if defined(EXT_PAGER) @@ -94,6 +94,9 @@ char *envp[]; interrupt_init(); + arch_install_interrupt_handlers(); + os_install_interrupt_handlers(); + /* 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(envp));