From 4bc615ab2937ea732aec051dfe383ddd2008c04b Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Wed, 4 Mar 2026 06:28:46 +0000
Subject: [PATCH] lisp_print: print verbose logs for lisp types on
 VERBOSE_LOGS=2

---
 Makefile   |  6 +++---
 src/lisp.c | 16 ++++++++--------
 src/sys.c  |  2 +-
 3 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/Makefile b/Makefile
index 25da063..097318d 100644
--- a/Makefile
+++ b/Makefile
@@ -6,16 +6,16 @@ TEST=$(DIST)/test.out
 
 LDFLAGS=
 GFLAGS=-Wall -Wextra -Wpedantic -Werror -std=c23 -I./include/
-DFLAGS=-ggdb -fsanitize=address -fsanitize=undefined -DVERBOSE_LOGS=1
+DFLAGS=-ggdb -fsanitize=address -fsanitize=undefined
 RFLAGS=-O3
 
 MODE=release
 ifeq ($(MODE), release)
 CFLAGS=$(GFLAGS) $(RFLAGS)
 else ifeq ($(MODE), debug)
-CFLAGS=$(GFLAGS) $(DFLAGS)
+CFLAGS=$(GFLAGS) $(DFLAGS) -DVERBOSE_LOGS=1
 else ifeq ($(MODE), full)
-CFLAGS=$(GFLAGS) $(DFLAGS) -DTEST_VERBOSE=1
+CFLAGS=$(GFLAGS) $(DFLAGS) -DVERBOSE_LOGS=2 -DTEST_VERBOSE=1
 endif
 
 # Units to compile
diff --git a/src/lisp.c b/src/lisp.c
index f9ce6d4..d504322 100644
--- a/src/lisp.c
+++ b/src/lisp.c
@@ -98,26 +98,26 @@ void lisp_print(FILE *fp, lisp_t *lisp)
     fprintf(fp, "NIL");
     break;
   case TAG_INT:
-#if VERBOSE_LOGS
+#if VERBOSE_LOGS == 2
     fprintf(fp, "INT[");
 #endif
     fprintf(fp, "%ld", as_int(lisp));
-#if VERBOSE_LOGS
+#if VERBOSE_LOGS == 2
     fprintf(fp, "]");
 #endif
     break;
   case TAG_SYM:
-#if VERBOSE_LOGS
+#if VERBOSE_LOGS == 2
     fprintf(fp, "SYM[");
 #endif
     fprintf(fp, "%s", as_sym(lisp));
-#if VERBOSE_LOGS
+#if VERBOSE_LOGS == 2
     fprintf(fp, "]");
 #endif
     break;
   case TAG_CONS:
   {
-#if VERBOSE_LOGS
+#if VERBOSE_LOGS == 2
     fprintf(fp, "LIST[");
 #else
     fprintf(fp, "(");
@@ -145,7 +145,7 @@ void lisp_print(FILE *fp, lisp_t *lisp)
         break;
       }
     }
-#if VERBOSE_LOGS
+#if VERBOSE_LOGS == 2
     fprintf(fp, "]");
 #else
     fprintf(fp, ")");
@@ -154,7 +154,7 @@ void lisp_print(FILE *fp, lisp_t *lisp)
   }
   case TAG_VEC:
   {
-#if VERBOSE_LOGS
+#if VERBOSE_LOGS == 2
     fprintf(fp, "VEC[");
 #else
     fprintf(fp, "[");
@@ -171,7 +171,7 @@ void lisp_print(FILE *fp, lisp_t *lisp)
       }
     }
 
-#if VERBOSE_LOGS
+#if VERBOSE_LOGS == 2
     fprintf(fp, "]");
 #else
     fprintf(fp, "]");
diff --git a/src/sys.c b/src/sys.c
index fd8793c..43d9c66 100644
--- a/src/sys.c
+++ b/src/sys.c
@@ -22,7 +22,7 @@ lisp_t *sys_alloc(sys_t *sys, tag_t type)
   case TAG_CONS:
   case TAG_VEC:
     return alloc_make(&sys->memory, type);
-  // Shouldn't be registered
+  // Shouldn't be allocated
   case TAG_NIL:
   case TAG_INT:
   case TAG_SYM: