X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Finterrupt.c;h=1578aca75ce55bf456467002ccfb4f8eeeee2b94;hb=eaa8a506790bb6ed627da617247bfd13802eb365;hp=a1ba5d8e2b0e18d3fc8517bc060bc80749ce8b7a;hpb=343ef95fda9da33830d5ab6aabe5368c898f0918;p=sbcl.git

diff --git a/src/runtime/interrupt.c b/src/runtime/interrupt.c
index a1ba5d8..1578aca 100644
--- a/src/runtime/interrupt.c
+++ b/src/runtime/interrupt.c
@@ -199,7 +199,7 @@ fake_foreign_function_call(os_context_t *context)
 #ifdef reg_ALLOC
     dynamic_space_free_pointer =
 	(lispobj *)(*os_context_register_addr(context, reg_ALLOC));
-#ifdef alpha
+#if defined(LISP_FEATURE_ALPHA)
     if ((long)dynamic_space_free_pointer & 1) {
 	lose("dead in fake_foreign_function_call, context = %x", context);
     }