src/runtime/dynbind.h

   1 /*
   2  * This software is part of the SBCL system. See the README file for
   3  * more information.
   4  *
   5  * This software is derived from the CMU CL system, which was
   6  * written at Carnegie Mellon University and released into the
   7  * public domain. The software is in the public domain and is
   8  * provided with absolutely no warranty. See the COPYING and CREDITS
   9  * files for more information.
  10  */
  11
  12 #ifndef _DYNBIND_H_
  13 #define _DYNBIND_H_
  14
  15 #ifdef LISP_FEATURE_SB_THREAD
  16 #define bind_variable(sym, val, th) bind_tls_cell(sym##_tlsindex, val, th)
  17 extern void bind_tls_cell(unsigned index, lispobj value, void *thread);
  18 #else
  19 extern void bind_variable(lispobj symbol, lispobj value,void *thread);
  20 #endif
  21 extern void unbind(void *thread);
  22 extern void unbind_to_here(lispobj *bsp,void *thread);
  23
  24 #endif