From f350b8a684dee5c4591d0d36cb6884c4eaa7f303 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 3 May 1991 07:55:49 +0000
Subject: [PATCH] Only initialized the binding stack pointer when we are
 loading a kernel core.

---
 ldb/ldb.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ldb/ldb.c b/ldb/ldb.c
index 9ded9d746..6c9d13392 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();
-- 
GitLab