* is done). For the GENCGC, it always points to DYNAMIC_SPACE_START. */
lispobj *current_dynamic_space;
+#if defined(LISP_FEATURE_SB_THREAD)
+pthread_key_t specials=0;
+#endif
+
void globals_init(void)
{
/* Space, stack, and free pointer vars are initialized by
* validate() and coreparse(). */
current_control_frame_pointer = (lispobj *)0;
-#ifndef LISP_FEATURE_GENCGC
+#ifndef LISP_FEATURE_GENCGC
/* no GC trigger yet */
current_auto_gc_trigger = NULL;
#endif
/* Set foreign function call active. */
foreign_function_call_active = 1;
+#if defined(LISP_FEATURE_SB_THREAD)
+ pthread_key_create(&specials,0);
+#endif
}