X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fruntime%2Fgencgc.c;h=08facddde7902191abc630edc0afb2f7a169f2bb;hb=72751b72bf505f2fbb92c3bb4de906e713f5eba8;hp=79c8d77013f094260cff92bf8fd5cbd404585248;hpb=afb24f64fe95ed8ebce578ba7526b8a0a7aa5f14;p=sbcl.git

diff --git a/src/runtime/gencgc.c b/src/runtime/gencgc.c
index 79c8d77..08facdd 100644
--- a/src/runtime/gencgc.c
+++ b/src/runtime/gencgc.c
@@ -4657,6 +4657,7 @@ alloc(long nbytes)
     alloc_signal = SymbolValue(ALLOC_SIGNAL,thread);
     if ((alloc_signal & FIXNUM_TAG_MASK) == 0) {
         if ((signed long) alloc_signal <= 0) {
+            SetSymbolValue(ALLOC_SIGNAL, T, thread);
 #ifdef LISP_FEATURE_SB_THREAD
             kill_thread_safely(thread->os_thread, SIGPROF);
 #else