* files for more information.
*/
-#include "runtime.h"
#include "sbcl.h"
+#include "runtime.h"
#include "globals.h"
#include "dynbind.h"
#include "thread.h"
#include "genesis/symbol.h"
#include "genesis/binding.h"
#include "genesis/thread.h"
+#include "genesis/static-symbols.h"
-#if defined(LISP_FEATURE_X86)
+#if defined(BINDING_STACK_POINTER)
#define GetBSP() ((struct binding *)SymbolValue(BINDING_STACK_POINTER,thread))
#define SetBSP(value) SetSymbolValue(BINDING_STACK_POINTER, (lispobj)(value),thread)
#else
lispobj old_tl_value;
struct binding *binding;
struct thread *thread=(struct thread *)th;
+#ifdef LISP_FEATURE_SB_THREAD
struct symbol *sym=(struct symbol *)native_pointer(symbol);
+#endif
binding = GetBSP();
SetBSP(binding+1);
#ifdef LISP_FEATURE_SB_THREAD