From 463504f1459e783275049f3aa25d30a19950c0f0 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Tue, 24 Oct 2000 11:02:49 +0000 Subject: [PATCH] Fix symbol value typo. --- lisp/lisp.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/lisp.c b/lisp/lisp.c index fed153d56..455a826d6 100644 --- a/lisp/lisp.c +++ b/lisp/lisp.c @@ -1,7 +1,7 @@ /* * main() entry point for a stand alone lisp image. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.18 2000/10/23 20:20:42 dtc Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.19 2000/10/24 11:02:49 dtc Exp $ * */ @@ -225,7 +225,7 @@ void main(int argc, char *argv[], char *envp[]) while ((arg = *++argptr) != NULL) { if (strcmp(arg, "-batch") == 0) - SetSymbolGlobalValue(BATCH_MODE, T); + SetSymbolValue(BATCH_MODE, T); } /* -- GitLab