From c65ec319f5dc4b8abca9e52aa990b90b967f32e0 Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Thu, 5 Mar 2026 20:27:00 +0000
Subject: [PATCH] lisp: lisp_print: implement support for strings

---
 src/lisp.c | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/src/lisp.c b/src/lisp.c
index e4551a5..cdc9cfa 100644
--- a/src/lisp.c
+++ b/src/lisp.c
@@ -188,8 +188,23 @@ void lisp_print(FILE *fp, lisp_t *lisp)
     break;
   }
   case TAG_STR:
-    TODO("Implement lisp_print for strings");
+  {
+#if VERBOSE_LOGS == 2
+    fprintf(fp, "STR[");
+#else
+    fprintf(fp, "\"");
+#endif
+
+    sv_t sv = string_sv(as_str(lisp));
+    fprintf(fp, PR_SV, SV_FMT(sv));
+
+#if VERBOSE_LOGS == 2
+    fprintf(fp, "]");
+#else
+    fprintf(fp, "\"");
+#endif
     break;
+  }
   default:
     FAIL("Unreachable");
     break;