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/main.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/main.lisp')

diff --git a/src/main.lisp b/src/main.lisp
index 13da5af..f435bf3 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -5,12 +5,13 @@
   (:nicknames :ukkoclot)
   (:use :c2cl :iterate :ukkoclot/src/inline-bots :ukkoclot/src/tg)
   (:import-from :alexandria :when-let)
-  (:import-from :com.dieggsy.f-string :enable-f-strings)
   (:import-from :conf)
   (:import-from :log)
+  (:import-from :named-readtables :in-readtable)
   (:import-from :serapeum :-> :drop)
   (:import-from :state :*state* :make-state)
   (:import-from :str)
+  (:import-from :ukkoclot/src/readtable :readtable)
   (:import-from :ukkoclot/src/db :with-db)
   (:import-from :ukkoclot/src/serializing :fixup-value)
   (:import-from :ukkoclot/src/strings :escape-xml :is-tg-whitespace :is-tg-whitespace-str)
@@ -18,8 +19,7 @@
    (:jzon :com.inuoe.jzon))
   (:export :main))
 (in-package :ukkoclot/src/main)
-
-(enable-f-strings)
+(in-readtable readtable)
 
 (defvar *in-prod* nil)
 
-- 
cgit v1.2.3