diff options
| author | 2025-10-24 08:09:46 +0300 | |
|---|---|---|
| committer | 2025-10-24 08:09:46 +0300 | |
| commit | 69d775b3d3a8f5bdb920630c7bdf6ec1b264b203 (patch) | |
| tree | 8e9be882f3d690abed0f37e9a29c9dfd7686e9e8 /src/state.lisp | |
| 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/state.lisp')
| -rw-r--r-- | src/state.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/state.lisp b/src/state.lisp index 9f1a38f..e2052e3 100644 --- a/src/state.lisp +++ b/src/state.lisp | |||
| @@ -4,10 +4,11 @@ | |||
| 4 | (:documentation "Holds the global state") | 4 | (:documentation "Holds the global state") |
| 5 | (:nicknames :state) | 5 | (:nicknames :state) |
| 6 | (:use :c2cl :ukkoclot/src/rw-lock) | 6 | (:use :c2cl :ukkoclot/src/rw-lock) |
| 7 | (:import-from :com.dieggsy.f-string :enable-f-strings) | ||
| 8 | (:import-from :conf :config :*config* :bot-token) | 7 | (:import-from :conf :config :*config* :bot-token) |
| 8 | (:import-from :named-readtables :in-readtable) | ||
| 9 | (:import-from :serapeum :->) | 9 | (:import-from :serapeum :->) |
| 10 | (:import-from :ukkoclot/src/db :db) | 10 | (:import-from :ukkoclot/src/db :db) |
| 11 | (:import-from :ukkoclot/src/readtable :readtable) | ||
| 11 | (:export | 12 | (:export |
| 12 | #:*state* | 13 | #:*state* |
| 13 | #:state | 14 | #:state |
| @@ -22,8 +23,7 @@ | |||
| 22 | #:id% | 23 | #:id% |
| 23 | #:set-id%)) | 24 | #:set-id%)) |
| 24 | (in-package :ukkoclot/src/state) | 25 | (in-package :ukkoclot/src/state) |
| 25 | 26 | (in-readtable readtable) | |
| 26 | (enable-f-strings) | ||
| 27 | 27 | ||
| 28 | (defstruct (state (:constructor make-state%)) | 28 | (defstruct (state (:constructor make-state%)) |
| 29 | (lock (make-rw-lock :name "state's lock") :type rw-lock :read-only t) | 29 | (lock (make-rw-lock :name "state's lock") :type rw-lock :read-only t) |