From 00060666ffd0a0e04c6ff73c245c9f44e1188504 Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Mon, 13 Oct 2025 01:28:59 +0300
Subject: Remove some commented-out code

---
 src/tg/type-macros.lisp | 7 -------
 1 file changed, 7 deletions(-)

(limited to 'src')

diff --git a/src/tg/type-macros.lisp b/src/tg/type-macros.lisp
index a730d8a..33ee36a 100644
--- a/src/tg/type-macros.lisp
+++ b/src/tg/type-macros.lisp
@@ -98,13 +98,6 @@
               name fields obj
               (lambda (field value)
                 `(setf ,pprint-args (list* ',(field-name field) ,value ,pprint-args))))
-           ;; ,@(iter (for field in (reverse fields))
-           ;;         (collect
-           ;;             (if (field-skip-if-default field)
-           ;;                 `(let ((,value (,(field-accessor name field) ,obj)))
-           ;;                    (unless (equal ,value ,(field-default field))
-           ;;                      ,(emit-append-to-pprint-args field value pprint-args)))
-           ;;                 (emit-append-to-pprint-args field `(,(field-accessor name field) ,obj) pprint-args))))
            (format ,stream "~A~<[~;~@{~_~1I~W = ~W~^, ~}~;]~:>" ',name ,pprint-args)))))
 
   (defun emit-struct (name printer-name fields)
-- 
cgit v1.2.3