Rewrite the stack

2026-07-18 22:31:01 -07:00
parent 891e5359bf
commit bd7ca2fa25
9 changed files with 343 additions and 200 deletions
@@ -278,6 +278,9 @@ DEFOBJTYPE(Vector, VECTOR, VECTORP, {
 DECLARE_SYMBOL(nil);
 DECLARE_SYMBOL(t);
 DECLARE_SYMBOL(unbound);
+DECLARE_SYMBOL(lexical_environment);
+
+extern LispVal *Vlexical_environment;

 static ALWAYS_INLINE bool NILP(LispVal *val) {
    return val == Qnil;
@@ -302,6 +305,16 @@ DECLARE_FUNCTION(setplist, (LispVal * sym, LispVal *plist));
 DECLARE_FUNCTION(get, (LispVal * sym, LispVal *key, LispVal *def));
 DECLARE_FUNCTION(put, (LispVal * sym, LispVal *key, LispVal *val));

+static ALWAYS_INLINE LispVal *SYMBOL_VALUE(LispVal *sym) {
+    assert(SYMBOLP(sym));
+    return ((LispSymbol *) sym)->value;
+}
+
+static ALWAYS_INLINE void SET_SYMBOL_VALUE(LispVal *sym, LispVal *value) {
+    assert(SYMBOLP(sym));
+    ((LispSymbol *) sym)->value = value;
+}
+
 // condition stuff
 DECLARE_SYMBOL(condition_class);
 DECLARE_FUNCTION(condition_class_p, (LispVal * val));