Index: /trunk/source/lisp-kernel/pmcl-kernel.c
===================================================================
--- /trunk/source/lisp-kernel/pmcl-kernel.c	(revision 13894)
+++ /trunk/source/lisp-kernel/pmcl-kernel.c	(revision 13895)
@@ -2287,4 +2287,11 @@
   lisp_global(FREE_STATIC_CONSES)+=(n<<fixnumshift);
 }
+
+#ifdef X86
+#define USE_GC_NOTIFICATION 1
+#else
+#undef USE_GC_NOTIFICATION
+#endif
+
 void
 ensure_static_conses(ExceptionInformation *xp, TCR *tcr, natural nconses)
@@ -2293,15 +2300,20 @@
   natural nbytes = nconses>>dnode_shift, have;
   BytePtr p = a->high-nbytes;
+#ifdef USE_GC_NOTIFICATION
   Boolean crossed_notify_threshold = false;
   LispObj before_shrink, after_shrink;
+#endif
 
   if (p < a->active) {
     untenure_from_area(tenured_area);
     gc_from_xp(xp, 0L);
+#ifdef USE_GC_NOTIFICATION
     did_gc_notification_since_last_full_gc = false;
+#endif
   }
 
   have = unbox_fixnum(lisp_global(FREE_STATIC_CONSES));
   if (have < nconses) {
+#ifdef USE_GC_NOTIFICATION
     before_shrink = a->high-a->active;
     if (before_shrink>nbytes) {
@@ -2313,10 +2325,13 @@
       }
     }
+#endif
     allocate_static_conses(nconses);
     tcr->bytes_allocated += nbytes;
   }
+#ifdef USE_GC_NOTIFICATION
   if (crossed_notify_threshold && !did_gc_notification_since_last_full_gc) {
     callback_for_gc_notification(xp,tcr);
   }
+#endif
 }