From e47856bc07a6cb6746a03f77b16793d75762b82b Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Wed, 9 Jan 2002 20:32:56 +0000
Subject: [PATCH] This should work better now for building on Sparc and
 non-sparc platforms.

---
 bootfiles/18c/boot6.lisp | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/bootfiles/18c/boot6.lisp b/bootfiles/18c/boot6.lisp
index 8e6d19844..ae1987978 100644
--- a/bootfiles/18c/boot6.lisp
+++ b/bootfiles/18c/boot6.lisp
@@ -1,8 +1,9 @@
 ;; Bootstrap the pseudo-atomic trap genesis change to put
 ;; trap_PseudoAtomic into internals.h.
 #+sparc
-(progn
-  (load "target:code/exports.lisp")
-  (in-package :sparc)
-  (defconstant pseudo-atomic-trap 16))
+(load "target:code/exports.lisp")
+#+sparc
+(in-package :sparc)
+#+sparc
+(defconstant pseudo-atomic-trap 16))
 
-- 
GitLab