X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fruntime%2Fthread.c;h=26f6de6790536f16f768921e10a43808479dce6f;hb=bcd323c39d6f5f80020ba4a5d9eb8d348c6cc499;hp=46f8f7de1fd9a7117e1fdf236647f2063ee9d41e;hpb=37d3828773e2f847bb1ed7522b0af4fb8e736fc8;p=sbcl.git

diff --git a/src/runtime/thread.c b/src/runtime/thread.c
index 46f8f7d..26f6de6 100644
--- a/src/runtime/thread.c
+++ b/src/runtime/thread.c
@@ -535,7 +535,7 @@ attach_os_thread(init_thread_data *scribble)
      * tempting to just perform such unsafe allocation though.  So let's
      * at least try to suppress GC before consing, and hope that it
      * works: */
-    SetSymbolValue(GC_INHIBIT, T, th);
+    bind_variable(GC_INHIBIT, T, th);
 
     uword_t stacksize
         = (uword_t) th->control_stack_end - (uword_t) th->control_stack_start;