From 69d775b3d3a8f5bdb920630c7bdf6ec1b264b203 Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Fri, 24 Oct 2025 08:09:46 +0300
Subject: Configure a custom readtable explicitly

---
 src/tg/method-macros.lisp | 7 +++----
 src/tg/type-macros.lisp   | 9 ++++-----
 2 files changed, 7 insertions(+), 9 deletions(-)

(limited to 'src/tg')

diff --git a/src/tg/method-macros.lisp b/src/tg/method-macros.lisp
index 9ab9e89..17903df 100644
--- a/src/tg/method-macros.lisp
+++ b/src/tg/method-macros.lisp
@@ -4,16 +4,15 @@
   (:documentation "Macros for easy defining TG methods.")
   (:use :c2cl :iterate)
   (:import-from :alexandria :make-keyword :with-gensyms)
-  (:import-from :com.dieggsy.f-string :enable-f-strings)
+  (:import-from :named-readtables :in-readtable)
   (:import-from :serapeum :-> :take)
   (:import-from :state)
   (:import-from :str)
+  (:import-from :ukkoclot/src/readtable :readtable)
   (:import-from :ukkoclot/src/transport :do-call :http-method)
   (:export :define-tg-method))
 (in-package :ukkoclot/src/tg/method-macros)
-
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (enable-f-strings))
+(in-readtable readtable)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defstruct (param (:constructor make-param%)) name type default skip-if-default)
diff --git a/src/tg/type-macros.lisp b/src/tg/type-macros.lisp
index 02437ec..97cce1c 100644
--- a/src/tg/type-macros.lisp
+++ b/src/tg/type-macros.lisp
@@ -4,18 +4,17 @@
   (:documentation "Macros for easy defining TG types.")
   (:use :c2cl :iterate)
   (:import-from :alexandria :make-keyword :symbolicate :with-gensyms)
-  (:import-from :com.dieggsy.f-string :enable-f-strings)
+  (:import-from :named-readtables :in-readtable)
   (:import-from :serapeum :->)
   (:import-from :str)
-  (:import-from :ukkoclot/src/serializing :parse-value)
   (:import-from :ukkoclot/src/hash-tables :gethash-lazy)
+  (:import-from :ukkoclot/src/readtable :readtable)
+  (:import-from :ukkoclot/src/serializing :parse-value)
   (:local-nicknames
    (:jzon :com.inuoe.jzon))
   (:export :define-tg-type))
 (in-package :ukkoclot/src/tg/type-macros)
-
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (enable-f-strings))
+(in-readtable readtable)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defstruct (field (:constructor make-field%)) name type default skip-if-default)
-- 
cgit v1.2.3