diff options
| author |  Uko Kokņevičs | 2025-10-13 01:28:04 +0300 |
|---|---|---|
| committer | Uko Kokņevičs | 2025-10-13 01:28:04 +0300 |
| commit | f6a0cbe8cc3ad0eceee2bbf0ed4793a360db854c (patch) | |
| tree | 98c6e810631369771be25bb1f18c5baa19654b98 /src/tg/type-macros.lisp | |
| parent | Rewrite define-tg-type and move it into type-macros (diff) | |
| download | ukkoclot-f6a0cbe8cc3ad0eceee2bbf0ed4793a360db854c.tar.gz ukkoclot-f6a0cbe8cc3ad0eceee2bbf0ed4793a360db854c.tar.xz ukkoclot-f6a0cbe8cc3ad0eceee2bbf0ed4793a360db854c.zip | |
Remove some "debug prints"
Diffstat (limited to 'src/tg/type-macros.lisp')
| -rw-r--r-- | src/tg/type-macros.lisp | 4 |
1 files 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 @@ | |||
| 83 | (let ,(iter (for field in fields) | 83 | (let ,(iter (for field in fields) |
| 84 | (collect (emit-let-gethash field source))) | 84 | (collect (emit-let-gethash field source))) |
| 85 | (,(type-constructor name) | 85 | (,(type-constructor name) |
| 86 | ,@(print (iter (for field in fields) | 86 | ,@(iter (for field in fields) |
| 87 | (appending (print (emit-constructor-args field)))))))))) | 87 | (appending (emit-constructor-args field)))))))) |
| 88 | 88 | ||
| 89 | (defun emit-printer (name printer-name fields) | 89 | (defun emit-printer (name printer-name fields) |
| 90 | (let ((obj (gensym "OBJ")) | 90 | (let ((obj (gensym "OBJ")) |