From daa1d3d565113a68e3aaaa0242f565fa7fb21e82 Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Mon, 9 Feb 2026 10:20:31 +0000
Subject: [PATCH] lisp: add and implement lisp_free_rec

May be useful for testing.
---
 include/alisp/lisp.h |  1 +
 src/lisp.c           | 32 ++++++++++++++++++++++++++++++++
 2 files changed, 33 insertions(+)

diff --git a/include/alisp/lisp.h b/include/alisp/lisp.h
index 94f2caf..db9c35e 100644
--- a/include/alisp/lisp.h
+++ b/include/alisp/lisp.h
@@ -50,6 +50,7 @@ lisp_t *car(lisp_t *);
 lisp_t *cdr(lisp_t *);
 
 void lisp_free(lisp_t *);
+void lisp_free_rec(lisp_t *);
 
 #endif
 
diff --git a/src/lisp.c b/src/lisp.c
index a180928..2ad3f49 100644
--- a/src/lisp.c
+++ b/src/lisp.c
@@ -115,6 +115,38 @@ void lisp_free(lisp_t *item)
   }
 }
 
+void lisp_free_rec(lisp_t *item)
+{
+  switch (get_tag(item))
+  {
+  case TAG_CONS:
+  {
+    lisp_free_rec(car(item));
+    lisp_free_rec(cdr(item));
+    free(as_cons(item));
+    break;
+  }
+  case TAG_VEC:
+  {
+    vec_t *vec = as_vec(item);
+    for (size_t i = 0; i < VEC_SIZE(vec, lisp_t **); ++i)
+    {
+      lisp_t *allocated = VEC_GET(vec, i, lisp_t *);
+      lisp_free_rec(allocated);
+    }
+    vec_free(vec);
+    free(vec);
+    break;
+  }
+  case TAG_NIL:
+  case TAG_INT:
+  case TAG_SYM:
+  case NUM_TAGS:
+    // shouldn't be dealt with (either constant or dealt with elsewhere)
+    break;
+  }
+}
+
 /* Copyright (C) 2025, 2026 Aryadev Chavali
 
  * This program is distributed in the hope that it will be useful, but WITHOUT