Fix gc bug and add condition classes

2026-02-28 13:22:34 -08:00
parent 45f6d7a53d
commit d21a5726e0
8 changed files with 96 additions and 5 deletions
@@ -151,6 +151,7 @@ void gc_mark_stack_for_rescan(void) {
 }

 static void free_object(LispVal *val) {
+    assert(OBJECT_GC_SET_P(val, GC_WHITE));
    assert(!OBJECT_HAS_LOCAL_REFERENCE_P(val));
    switch (((LispObject *) val)->type) {
    case TYPE_HASH_TABLE: {