X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftoplevel.lisp;h=7643a9144b949875c4f6f6894c6076a0759d3105;hb=1af3faa2b79125b774c2182cab841ed7ee555bed;hp=43a5c0ba015e3ebc364c3a9f07b30316efad3457;hpb=0834142e83d6a1ee99260baa3a8ca1d1557b3737;p=sbcl.git

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index 43a5c0b..7643a91 100644
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -26,9 +26,9 @@
 
 ;;; FIXME: These could be converted to DEFVARs.
 (declaim (special *gc-inhibit* *need-to-collect-garbage*
-		  *before-gc-hooks* *after-gc-hooks*
-		  #!+x86 *pseudo-atomic-atomic*
-		  #!+x86 *pseudo-atomic-interrupted*
+		  *after-gc-hooks*
+		  #!+(or x86 x86-64) *pseudo-atomic-atomic*
+		  #!+(or x86 x86-64) *pseudo-atomic-interrupted*
 		  sb!unix::*interrupts-enabled*
 		  sb!unix::*interrupt-pending*
 		  *type-system-initialized*))