Steel Bank Common Lisp

The branch "master" has been updated in SBCL:
       via  bf40ae88bc289fd765a33861cc4bc0853ed483ba (commit)
      from  2b29a7c2b236cfab1d4d06311e84414abba71b4c (commit)

- Log -----------------------------------------------------------------
commit bf40ae88bc289fd765a33861cc4bc0853ed483ba
Author: David Lichteblau <david@...>
Date:   Wed Dec 26 15:39:34 2012 +0100

    Fix attach_thread to allocate a TLS index for *gc-inhibit* if needed
    
    Instead of occasionally setting a global value for this variable...
    
    Thanks to Stas Boukarev for the bug report.
---
 src/runtime/thread.c |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

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;

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL