From f36752df6cd2d856f5386145558085cdca450bf1 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Fri, 21 Nov 1997 12:23:44 +0000
Subject: [PATCH] Bring forward the setup of the pseudo atomic static variables
 (x86 and RT) so this is set for the first object allocation - help some
 checks on the x86 port.

---
 lisp/lisp.c | 16 +++++-----------
 1 file changed, 5 insertions(+), 11 deletions(-)

diff --git a/lisp/lisp.c b/lisp/lisp.c
index f186c7345..0cdc978b5 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.13 1997/11/18 17:08:42 dtc Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.14 1997/11/21 12:23:44 dtc Exp $
  *
  */
 
@@ -200,21 +200,15 @@ void main(int argc, char *argv[], char *envp[])
     arch_install_interrupt_handlers();
     os_install_interrupt_handlers();
 
-    /* Convert the argv and envp to something Lisp can grok. */
-    SetSymbolValue(LISP_COMMAND_LINE_LIST, alloc_str_list(argv));
-    SetSymbolValue(LISP_ENVIRONMENT_LIST, alloc_str_list(envp));
-
 #ifdef PSEUDO_ATOMIC_ATOMIC
-#ifdef i386
-    /* Turn on pseudo atomic for when we call into lisp. */
-    SetSymbolValue(PSEUDO_ATOMIC_ATOMIC, make_fixnum(0));
-    SetSymbolValue(PSEUDO_ATOMIC_INTERRUPTED, make_fixnum(0));
-#else
     /* Turn on pseudo atomic for when we call into lisp. */
     SetSymbolValue(PSEUDO_ATOMIC_ATOMIC, make_fixnum(1));
     SetSymbolValue(PSEUDO_ATOMIC_INTERRUPTED, make_fixnum(0));
 #endif
-#endif
+
+    /* Convert the argv and envp to something Lisp can grok. */
+    SetSymbolValue(LISP_COMMAND_LINE_LIST, alloc_str_list(argv));
+    SetSymbolValue(LISP_ENVIRONMENT_LIST, alloc_str_list(envp));
 
     /* Pick off sigint until the lisp system gets far enough along to */
     /* install it's own. */
-- 
GitLab