diff options
Diffstat (limited to 'src')
| -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)) |