From f6a0cbe8cc3ad0eceee2bbf0ed4793a360db854c Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Mon, 13 Oct 2025 01:28:04 +0300
Subject: Remove some "debug prints"

---
 src/tg/type-macros.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/tg/type-macros.lisp b/src/tg/type-macros.lisp
index 06de32d..a730d8a 100644
--- a/src/tg/type-macros.lisp
+++ b/src/tg/type-macros.lisp
@@ -83,8 +83,8 @@
          (let ,(iter (for field in fields)
                      (collect (emit-let-gethash field source)))
            (,(type-constructor name)
-            ,@(print (iter (for field in fields)
-                    (appending (print (emit-constructor-args field))))))))))
+            ,@(iter (for field in fields)
+                    (appending (emit-constructor-args field))))))))
 
   (defun emit-printer (name printer-name fields)
     (let ((obj (gensym "OBJ"))
-- 
cgit v1.2.3