Add com.dieggsy.f-string, replace simple formats with #f"strings"

1 files changed, 5 insertions, 1 deletions

diff --git a/src/tg/type-macros.lisp b/src/tg/type-macros.lisp
index b9d649c..390781f 100644
--- a/src/tg/type-macros.lisp
+++ b/src/tg/type-macros.lisp
@@ -1,7 +1,9 @@
 ;; SPDX-License-Identifier: EUPL-1.2
 ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
 (defpackage :ukkoclot/tg/type-macros
+  (:documentation "Macros for easy defining TG types.")
   (:use :c2cl :iterate)
+  (:import-from :com.dieggsy.f-string :enable-f-strings)
   (:import-from :ukkoclot/serializing :parse-value)
   (:import-from :ukkoclot/hash-tables :gethash-lazy)
   (:import-from :ukkoclot/strings :lisp->snake-case)
@@ -10,6 +12,8 @@
   (:export :define-tg-type))
 (in-package :ukkoclot/tg/type-macros)
 
+(enable-f-strings)
+
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defstruct (field (:constructor make-field%)) name type default skip-if-default)
 
@@ -20,7 +24,7 @@
                      &optional (default +unique+)
                      &key (skip-if-default (not (eq default +unique+))))
     (let ((default (if (eq default +unique+)
-                       `(error ,(format nil "No value given for ~A" name))
+                       `(error ,#f"No value given for {name}")
                        default)))
       (make-field% :name name
                    :type type