diff options
| author |  Uko Kokņevičs | 2025-10-24 08:09:46 +0300 |
|---|---|---|
| committer | Uko Kokņevičs | 2025-10-24 08:09:46 +0300 |
| commit | 69d775b3d3a8f5bdb920630c7bdf6ec1b264b203 (patch) | |
| tree | 8e9be882f3d690abed0f37e9a29c9dfd7686e9e8 /src/tg | |
| parent | Update f-string (diff) | |
| download | ukkoclot-69d775b3d3a8f5bdb920630c7bdf6ec1b264b203.tar.gz ukkoclot-69d775b3d3a8f5bdb920630c7bdf6ec1b264b203.tar.xz ukkoclot-69d775b3d3a8f5bdb920630c7bdf6ec1b264b203.zip | |
Configure a custom readtable explicitly
Diffstat (limited to 'src/tg')
| -rw-r--r-- | src/tg/method-macros.lisp | 7 | ||||
| -rw-r--r-- | src/tg/type-macros.lisp | 9 |
2 files changed, 7 insertions, 9 deletions
diff --git a/src/tg/method-macros.lisp b/src/tg/method-macros.lisp index 9ab9e89..17903df 100644 --- a/src/tg/method-macros.lisp +++ b/src/tg/method-macros.lisp | |||
| @@ -4,16 +4,15 @@ | |||
| 4 | (:documentation "Macros for easy defining TG methods.") | 4 | (:documentation "Macros for easy defining TG methods.") |
| 5 | (:use :c2cl :iterate) | 5 | (:use :c2cl :iterate) |
| 6 | (:import-from :alexandria :make-keyword :with-gensyms) | 6 | (:import-from :alexandria :make-keyword :with-gensyms) |
| 7 | (:import-from :com.dieggsy.f-string :enable-f-strings) | 7 | (:import-from :named-readtables :in-readtable) |
| 8 | (:import-from :serapeum :-> :take) | 8 | (:import-from :serapeum :-> :take) |
| 9 | (:import-from :state) | 9 | (:import-from :state) |
| 10 | (:import-from :str) | 10 | (:import-from :str) |
| 11 | (:import-from :ukkoclot/src/readtable :readtable) | ||
| 11 | (:import-from :ukkoclot/src/transport :do-call :http-method) | 12 | (:import-from :ukkoclot/src/transport :do-call :http-method) |
| 12 | (:export :define-tg-method)) | 13 | (:export :define-tg-method)) |
| 13 | (in-package :ukkoclot/src/tg/method-macros) | 14 | (in-package :ukkoclot/src/tg/method-macros) |
| 14 | 15 | (in-readtable readtable) | |
| 15 | (eval-when (:compile-toplevel :load-toplevel :execute) | ||
| 16 | (enable-f-strings)) | ||
| 17 | 16 | ||
| 18 | (eval-when (:compile-toplevel :load-toplevel :execute) | 17 | (eval-when (:compile-toplevel :load-toplevel :execute) |
| 19 | (defstruct (param (:constructor make-param%)) name type default skip-if-default) | 18 | (defstruct (param (:constructor make-param%)) name type default skip-if-default) |
diff --git a/src/tg/type-macros.lisp b/src/tg/type-macros.lisp index 02437ec..97cce1c 100644 --- a/src/tg/type-macros.lisp +++ b/src/tg/type-macros.lisp | |||
| @@ -4,18 +4,17 @@ | |||
| 4 | (:documentation "Macros for easy defining TG types.") | 4 | (:documentation "Macros for easy defining TG types.") |
| 5 | (:use :c2cl :iterate) | 5 | (:use :c2cl :iterate) |
| 6 | (:import-from :alexandria :make-keyword :symbolicate :with-gensyms) | 6 | (:import-from :alexandria :make-keyword :symbolicate :with-gensyms) |
| 7 | (:import-from :com.dieggsy.f-string :enable-f-strings) | 7 | (:import-from :named-readtables :in-readtable) |
| 8 | (:import-from :serapeum :->) | 8 | (:import-from :serapeum :->) |
| 9 | (:import-from :str) | 9 | (:import-from :str) |
| 10 | (:import-from :ukkoclot/src/serializing :parse-value) | ||
| 11 | (:import-from :ukkoclot/src/hash-tables :gethash-lazy) | 10 | (:import-from :ukkoclot/src/hash-tables :gethash-lazy) |
| 11 | (:import-from :ukkoclot/src/readtable :readtable) | ||
| 12 | (:import-from :ukkoclot/src/serializing :parse-value) | ||
| 12 | (:local-nicknames | 13 | (:local-nicknames |
| 13 | (:jzon :com.inuoe.jzon)) | 14 | (:jzon :com.inuoe.jzon)) |
| 14 | (:export :define-tg-type)) | 15 | (:export :define-tg-type)) |
| 15 | (in-package :ukkoclot/src/tg/type-macros) | 16 | (in-package :ukkoclot/src/tg/type-macros) |
| 16 | 17 | (in-readtable readtable) | |
| 17 | (eval-when (:compile-toplevel :load-toplevel :execute) | ||
| 18 | (enable-f-strings)) | ||
| 19 | 18 | ||
| 20 | (eval-when (:compile-toplevel :load-toplevel :execute) | 19 | (eval-when (:compile-toplevel :load-toplevel :execute) |
| 21 | (defstruct (field (:constructor make-field%)) name type default skip-if-default) | 20 | (defstruct (field (:constructor make-field%)) name type default skip-if-default) |