2 * support for dynamic binding from C
6 * This software is part of the SBCL system. See the README file for
9 * This software is derived from the CMU CL system, which was
10 * written at Carnegie Mellon University and released into the
11 * public domain. The software is in the public domain and is
12 * provided with absolutely no warranty. See the COPYING and CREDITS
13 * files for more information.
21 #if defined(ibmrt) || defined(__i386__)
22 #define GetBSP() ((struct binding *)SymbolValue(BINDING_STACK_POINTER))
23 #define SetBSP(value) SetSymbolValue(BINDING_STACK_POINTER, (lispobj)(value))
25 #define GetBSP() ((struct binding *)current_binding_stack_pointer)
26 #define SetBSP(value) (current_binding_stack_pointer=(lispobj *)(value))
29 void bind_variable(lispobj symbol, lispobj value)
32 struct binding *binding;
34 old_value = SymbolValue(symbol);
38 binding->value = old_value;
39 binding->symbol = symbol;
40 SetSymbolValue(symbol, value);
45 struct binding *binding;
48 binding = GetBSP() - 1;
50 symbol = binding->symbol;
52 SetSymbolValue(symbol, binding->value);
59 void unbind_to_here(lispobj *bsp)
61 struct binding *target = (struct binding *)bsp;
62 struct binding *binding = GetBSP();
65 while (target < binding) {
68 symbol = binding->symbol;
71 SetSymbolValue(symbol, binding->value);