#include "genesis/symbol.h"
#include "genesis/static-symbols.h"
#include "genesis/thread.h"
+#include "genesis/fdefn.h"
#define STATE_RUNNING (make_fixnum(1))
#define STATE_SUSPENDED (make_fixnum(2))
#endif
}
+/* This only works for static symbols. */
+static inline lispobj
+StaticSymbolFunction(lispobj sym)
+{
+ return ((struct fdefn *)native_pointer(SymbolValue(sym, 0)))->fun;
+}
+
static inline
os_context_t *get_interrupt_context_for_thread(struct thread *th)
{