From d93940bcb93a3ff3d235c079ddeb5eef18259175 Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Sat, 18 Oct 2025 08:57:59 +0300
Subject: Properly fix enable-f-strings

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

(limited to 'src')

diff --git a/src/tg/method-macros.lisp b/src/tg/method-macros.lisp
index a522c28..82da47c 100644
--- a/src/tg/method-macros.lisp
+++ b/src/tg/method-macros.lisp
@@ -13,8 +13,9 @@
 (in-package :ukkoclot/tg/method-macros)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (enable-f-strings)
+  (enable-f-strings))
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (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 35c1d5a..d09359c 100644
--- a/src/tg/type-macros.lisp
+++ b/src/tg/type-macros.lisp
@@ -14,8 +14,9 @@
 (in-package :ukkoclot/tg/type-macros)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (enable-f-strings)
+  (enable-f-strings))
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (defstruct (field (:constructor make-field%)) name type default skip-if-default)
 
   (defparameter +unique+ (gensym))
-- 
cgit v1.2.3