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