-#define get_binding_stack_pointer(thread) \
- SymbolValue(BINDING_STACK_POINTER, thread)
-#define get_pseudo_atomic_atomic(thread) \
- (fixnum_value(SymbolValue(PSEUDO_ATOMIC_BITS, thread) & make_fixnum(1)))
-#define set_pseudo_atomic_atomic(thread) \
- { \
- lispobj bits = SymbolValue(PSEUDO_ATOMIC_BITS, thread); \
- SetSymbolValue(PSEUDO_ATOMIC_BITS, bits | make_fixnum(1), thread); \
- }
-#define clear_pseudo_atomic_atomic(thread) \
- { \
- lispobj bits = SymbolValue(PSEUDO_ATOMIC_BITS, thread); \
- SetSymbolValue(PSEUDO_ATOMIC_BITS, bits & ~make_fixnum(1), thread); \
- }
-#define get_pseudo_atomic_interrupted(thread) \
- (fixnum_value(SymbolValue(PSEUDO_ATOMIC_BITS, thread) & make_fixnum(2)))
-#define clear_pseudo_atomic_interrupted(thread) \
- { \
- lispobj bits = SymbolValue(PSEUDO_ATOMIC_BITS, thread); \
- SetSymbolValue(PSEUDO_ATOMIC_BITS, bits & ~make_fixnum(2), thread); \
- }