diff options
| author |  Uko Kokņevičs | 2025-10-18 08:57:59 +0300 |
|---|---|---|
| committer | Uko Kokņevičs | 2025-10-18 08:57:59 +0300 |
| commit | d93940bcb93a3ff3d235c079ddeb5eef18259175 (patch) | |
| tree | f59aa7d933be16241c57cacf9a5157433d4ec86d | |
| parent | Move enable-f-strings within the eval-when (diff) | |
| download | ukkoclot-d93940bcb93a3ff3d235c079ddeb5eef18259175.tar.gz ukkoclot-d93940bcb93a3ff3d235c079ddeb5eef18259175.tar.xz ukkoclot-d93940bcb93a3ff3d235c079ddeb5eef18259175.zip | |
Properly fix enable-f-strings
| -rw-r--r-- | src/tg/method-macros.lisp | 3 | ||||
| -rw-r--r-- | src/tg/type-macros.lisp | 3 |
2 files changed, 4 insertions, 2 deletions
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 @@ | |||
| 13 | (in-package :ukkoclot/tg/method-macros) | 13 | (in-package :ukkoclot/tg/method-macros) |
| 14 | 14 | ||
| 15 | (eval-when (:compile-toplevel :load-toplevel :execute) | 15 | (eval-when (:compile-toplevel :load-toplevel :execute) |
| 16 | (enable-f-strings) | 16 | (enable-f-strings)) |
| 17 | 17 | ||
| 18 | (eval-when (:compile-toplevel :load-toplevel :execute) | ||
| 18 | (defstruct (param (:constructor make-param%)) name type default skip-if-default) | 19 | (defstruct (param (:constructor make-param%)) name type default skip-if-default) |
| 19 | 20 | ||
| 20 | (defparameter +unique+ (gensym)) | 21 | (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 @@ | |||
| 14 | (in-package :ukkoclot/tg/type-macros) | 14 | (in-package :ukkoclot/tg/type-macros) |
| 15 | 15 | ||
| 16 | (eval-when (:compile-toplevel :load-toplevel :execute) | 16 | (eval-when (:compile-toplevel :load-toplevel :execute) |
| 17 | (enable-f-strings) | 17 | (enable-f-strings)) |
| 18 | 18 | ||
| 19 | (eval-when (:compile-toplevel :load-toplevel :execute) | ||
| 19 | (defstruct (field (:constructor make-field%)) name type default skip-if-default) | 20 | (defstruct (field (:constructor make-field%)) name type default skip-if-default) |
| 20 | 21 | ||
| 21 | (defparameter +unique+ (gensym)) | 22 | (defparameter +unique+ (gensym)) |