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