From f42acd6b7ebaa555b7cd6f5d7eedc3205680948b Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 21 Sep 1990 06:03:26 +0000 Subject: [PATCH] Changed the default core to /usr/misc/.cmucl/lib/lisp.core. Added noise to set the top of the number stack. --- ldb/ldb.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/ldb/ldb.c b/ldb/ldb.c index 898bd917f..4b0e586a9 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.8 1990/07/18 10:53:33 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.c,v 1.9 1990/09/21 06:03:26 wlott Exp $ */ /* Lisp kernel core debugger */ #include <stdio.h> @@ -46,6 +46,8 @@ char *envp[]; char *core = NULL; boolean restore_state, monitor; + number_stack_start = (char *)&monitor; + define_var("nil", NIL, TRUE); define_var("t", T, TRUE); monitor = FALSE; @@ -69,7 +71,7 @@ char *envp[]; } if (core == NULL) - core = "/usr/clisp/lib/lisp.core"; + core = "/usr/misc/.cmucl/lib/lisp.core"; os_init(); -- GitLab