X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-impl.lisp;h=0e457caa04413bee52175136cda6ba670d6cefb7;hb=d8978f48b6c8b583612f6adbe33d3030f862ef87;hp=3ab97bf32346d0c9a055f689c77123060a404f3c;hpb=63f714af62d0ccdb9d4a793ab0245b036c3d8531;p=sbcl.git

diff --git a/src/code/early-impl.lisp b/src/code/early-impl.lisp
index 3ab97bf..0e457ca 100644
--- a/src/code/early-impl.lisp
+++ b/src/code/early-impl.lisp
@@ -33,8 +33,9 @@
                   ;; pseudo-atomicity too, but they handle it without
                   ;; messing with special variables.)
                   #!+(or x86 x86-64) *pseudo-atomic-bits*
-                  sb!unix::*interrupts-enabled*
-                  sb!unix::*interrupt-pending*
+                  *in-interruption*
+                  *interrupts-enabled*
+                  *interrupt-pending*
                   *free-interrupt-context-index*
                   sb!vm::*allocation-pointer*
                   sb!vm::*binding-stack-pointer*