diff --git a/ldb/ldb.c b/ldb/ldb.c index 4b0e586a95ad86ceebdfad9ed6a9fefb1707fa0a..f75a38be184bd971f8fdf36e51dfb88793ccd5db 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.9 1990/09/21 06:03:26 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.c,v 1.10 1990/10/23 00:05:51 wlott Exp $ */ /* Lisp kernel core debugger */ #include <stdio.h> @@ -93,6 +93,12 @@ char *envp[]; SetSymbolValue(LISP_COMMAND_LINE_LIST, alloc_str_list(argv)); SetSymbolValue(LISP_ENVIRONMENT_LIST, alloc_str_list(envp)); +#ifndef mips + /* Turn on pseudo atomic for when we call into lisp. */ + SetSymbolValue(PSEUDO_ATOMIC_ATOMIC, fixnum(1)); + SetSymbolValue(PSEUDO_ATOMIC_INTERRUPTED, fixnum(0)); +#endif + /* Snag a few of the signal */ test_init();