X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fthread.c;h=98a897cf3a394d2ac31c0562ef61633aa04283ba;hb=e4542bc034db18cf98f005b2dac53a6d7d5c7260;hp=16a27b04aefa19e9ba7fe8d78c4935958e641806;hpb=d411bb9c10af8fb568a4a23274090ede67f738dd;p=sbcl.git

diff --git a/src/runtime/thread.c b/src/runtime/thread.c
index 16a27b0..98a897c 100644
--- a/src/runtime/thread.c
+++ b/src/runtime/thread.c
@@ -211,6 +211,7 @@ create_thread_struct(lispobj initial_function) {
         if(SymbolValue(FREE_TLS_INDEX,0)==UNBOUND_MARKER_WIDETAG) {
             SetSymbolValue
                 (FREE_TLS_INDEX,
+                 /* FIXME: should be MAX_INTERRUPTS -1 ? */
                  make_fixnum(MAX_INTERRUPTS+
                              sizeof(struct thread)/sizeof(lispobj)),
                  0);