X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Ffuncall.c;h=91f5513c643a31a83d4988a746f2d423a047dfcd;hb=371577a214ce2659c271279ad48e4c42e1c0c93e;hp=186435cf5b3eefc3fb4285375462b12e9446fa1b;hpb=89aafeff1876325edaacdd6b294e4ef065980bf2;p=sbcl.git

diff --git a/src/runtime/funcall.c b/src/runtime/funcall.c
index 186435c..91f5513 100644
--- a/src/runtime/funcall.c
+++ b/src/runtime/funcall.c
@@ -31,7 +31,7 @@ safe_call_into_lisp(lispobj fun, lispobj *args, int nargs)
      * otherwise two threads racing here may deadlock: the other will
      * wait on the GC lock, and the other cannot stop the first
      * one... */
-    check_gc_signals_unblocked_or_lose();
+    check_gc_signals_unblocked_or_lose(0);
     return call_into_lisp(fun, args, nargs);
 }