diff options
| -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)) |