From c56f9fc1af4b34a730e4a5553794d4e80166406d Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Sat, 18 Oct 2025 08:46:30 +0300
Subject: Move enable-f-strings within the eval-when

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

(limited to 'src')

diff --git a/src/tg/method-macros.lisp b/src/tg/method-macros.lisp
index 0be6f00..a522c28 100644
--- a/src/tg/method-macros.lisp
+++ b/src/tg/method-macros.lisp
@@ -12,9 +12,9 @@
   (:export :define-tg-method))
 (in-package :ukkoclot/tg/method-macros)
 
-(enable-f-strings)
-
 (eval-when (:compile-toplevel :load-toplevel :execute)
+  (enable-f-strings)
+
   (defstruct (param (:constructor make-param%)) name type default skip-if-default)
 
   (defparameter +unique+ (gensym))
diff --git a/src/tg/type-macros.lisp b/src/tg/type-macros.lisp
index 75afab0..35c1d5a 100644
--- a/src/tg/type-macros.lisp
+++ b/src/tg/type-macros.lisp
@@ -13,9 +13,9 @@
   (:export :define-tg-type))
 (in-package :ukkoclot/tg/type-macros)
 
-(enable-f-strings)
-
 (eval-when (:compile-toplevel :load-toplevel :execute)
+  (enable-f-strings)
+
   (defstruct (field (:constructor make-field%)) name type default skip-if-default)
 
   (defparameter +unique+ (gensym))
-- 
cgit v1.2.3