1 files changed, 6 insertions, 3 deletions

diff --git a/src/tg/method-macros.lisp b/src/tg/method-macros.lisp
index e614db9..817a3e3 100644
--- a/src/tg/method-macros.lisp
+++ b/src/tg/method-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/method-macros
+  (:documentation "Macros for easy defining TG methods."
   (:use :c2cl :iterate)
+  (:import-from :com.dieggsy.f-string :enable-f-strings)
   (:import-from :serapeum :take)
   (:import-from :ukkoclot/state :bot)
   (:import-from :ukkoclot/strings :ends-with :lisp->camel-case)
@@ -9,6 +11,8 @@
   (:export :define-tg-method))
 (in-package :ukkoclot/tg/method-macros)
 
+(enable-f-strings)
+
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defstruct (param (:constructor make-param%)) name type default skip-if-default)
 
@@ -19,7 +23,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-param% :name name
                    :type type
@@ -67,8 +71,7 @@
                                ,return-type)
                      ,name))))
 
-(defmacro define-tg-method (
-                            (name type &optional (method :POST))
+(defmacro define-tg-method ((name type &optional (method :POST))
                             &body param-specs)
   (let ((params (parse-param-specs param-specs)))
     `(progn