diff options
| author |  Uko Kokņevičs | 2025-10-18 08:46:30 +0300 |
|---|---|---|
| committer | Uko Kokņevičs | 2025-10-18 08:46:30 +0300 |
| commit | c56f9fc1af4b34a730e4a5553794d4e80166406d (patch) | |
| tree | 5f881e9ceac20c3e0073c913d9b7b2f3ff410d2f | |
| parent | Replace bunch of our string utilities with str library (diff) | |
| download | ukkoclot-c56f9fc1af4b34a730e4a5553794d4e80166406d.tar.gz ukkoclot-c56f9fc1af4b34a730e4a5553794d4e80166406d.tar.xz ukkoclot-c56f9fc1af4b34a730e4a5553794d4e80166406d.zip | |
Move enable-f-strings within the eval-when
| -rw-r--r-- | src/tg/method-macros.lisp | 4 | ||||
| -rw-r--r-- | src/tg/type-macros.lisp | 4 |
2 files changed, 4 insertions, 4 deletions
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 @@ | |||
| 12 | (:export :define-tg-method)) | 12 | (:export :define-tg-method)) |
| 13 | (in-package :ukkoclot/tg/method-macros) | 13 | (in-package :ukkoclot/tg/method-macros) |
| 14 | 14 | ||
| 15 | (enable-f-strings) | ||
| 16 | |||
| 17 | (eval-when (:compile-toplevel :load-toplevel :execute) | 15 | (eval-when (:compile-toplevel :load-toplevel :execute) |
| 16 | (enable-f-strings) | ||
| 17 | |||
| 18 | (defstruct (param (:constructor make-param%)) name type default skip-if-default) | 18 | (defstruct (param (:constructor make-param%)) name type default skip-if-default) |
| 19 | 19 | ||
| 20 | (defparameter +unique+ (gensym)) | 20 | (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 @@ | |||
| 13 | (:export :define-tg-type)) | 13 | (:export :define-tg-type)) |
| 14 | (in-package :ukkoclot/tg/type-macros) | 14 | (in-package :ukkoclot/tg/type-macros) |
| 15 | 15 | ||
| 16 | (enable-f-strings) | ||
| 17 | |||
| 18 | (eval-when (:compile-toplevel :load-toplevel :execute) | 16 | (eval-when (:compile-toplevel :load-toplevel :execute) |
| 17 | (enable-f-strings) | ||
| 18 | |||
| 19 | (defstruct (field (:constructor make-field%)) name type default skip-if-default) | 19 | (defstruct (field (:constructor make-field%)) name type default skip-if-default) |
| 20 | 20 | ||
| 21 | (defparameter +unique+ (gensym)) | 21 | (defparameter +unique+ (gensym)) |