diff --git a/ldb/ldb.c b/ldb/ldb.c index 9ded9d746b0191f19d8561e62c0b505fd1baa5c3..6c9d13392fccd3010a17e58d2d2700b2548dd9d2 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.11 1991/02/16 01:00:31 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.c,v 1.12 1991/05/03 07:55:49 wlott Exp $ */ /* Lisp kernel core debugger */ #include <stdio.h> @@ -88,7 +88,8 @@ char *envp[]; restore_state = load_core_file(core); #ifdef ibmrt - SetSymbolValue(BINDING_STACK_POINTER, (lispobj)binding_stack); + if (!restore_state) + SetSymbolValue(BINDING_STACK_POINTER, (lispobj)binding_stack); #endif interrupt_init();