Configure a custom readtable explicitly

1 files changed, 4 insertions, 5 deletions

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)