diff options
| author |  Uko Kokņevičs | 2025-10-13 01:28:59 +0300 |
|---|---|---|
| committer | Uko Kokņevičs | 2025-10-13 01:28:59 +0300 |
| commit | 00060666ffd0a0e04c6ff73c245c9f44e1188504 (patch) | |
| tree | 47c832c55187db8f79b947f0752d067a4a050bbb | |
| parent | Remove some "debug prints" (diff) | |
| download | ukkoclot-00060666ffd0a0e04c6ff73c245c9f44e1188504.tar.gz ukkoclot-00060666ffd0a0e04c6ff73c245c9f44e1188504.tar.xz ukkoclot-00060666ffd0a0e04c6ff73c245c9f44e1188504.zip | |
Remove some commented-out code
| -rw-r--r-- | src/tg/type-macros.lisp | 7 |
1 files changed, 0 insertions, 7 deletions
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 @@ | |||
| 98 | name fields obj | 98 | name fields obj |
| 99 | (lambda (field value) | 99 | (lambda (field value) |
| 100 | `(setf ,pprint-args (list* ',(field-name field) ,value ,pprint-args)))) | 100 | `(setf ,pprint-args (list* ',(field-name field) ,value ,pprint-args)))) |
| 101 | ;; ,@(iter (for field in (reverse fields)) | ||
| 102 | ;; (collect | ||
| 103 | ;; (if (field-skip-if-default field) | ||
| 104 | ;; `(let ((,value (,(field-accessor name field) ,obj))) | ||
| 105 | ;; (unless (equal ,value ,(field-default field)) | ||
| 106 | ;; ,(emit-append-to-pprint-args field value pprint-args))) | ||
| 107 | ;; (emit-append-to-pprint-args field `(,(field-accessor name field) ,obj) pprint-args)))) | ||
| 108 | (format ,stream "~A~<[~;~@{~_~1I~W = ~W~^, ~}~;]~:>" ',name ,pprint-args))))) | 101 | (format ,stream "~A~<[~;~@{~_~1I~W = ~W~^, ~}~;]~:>" ',name ,pprint-args))))) |
| 109 | 102 | ||
| 110 | (defun emit-struct (name printer-name fields) | 103 | (defun emit-struct (name printer-name fields) |