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/main.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/main.lisp')
| -rw-r--r-- | src/main.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/main.lisp b/src/main.lisp index 13da5af..f435bf3 100644 --- a/src/main.lisp +++ b/src/main.lisp | |||
| @@ -5,12 +5,13 @@ | |||
| 5 | (:nicknames :ukkoclot) | 5 | (:nicknames :ukkoclot) |
| 6 | (:use :c2cl :iterate :ukkoclot/src/inline-bots :ukkoclot/src/tg) | 6 | (:use :c2cl :iterate :ukkoclot/src/inline-bots :ukkoclot/src/tg) |
| 7 | (:import-from :alexandria :when-let) | 7 | (:import-from :alexandria :when-let) |
| 8 | (:import-from :com.dieggsy.f-string :enable-f-strings) | ||
| 9 | (:import-from :conf) | 8 | (:import-from :conf) |
| 10 | (:import-from :log) | 9 | (:import-from :log) |
| 10 | (:import-from :named-readtables :in-readtable) | ||
| 11 | (:import-from :serapeum :-> :drop) | 11 | (:import-from :serapeum :-> :drop) |
| 12 | (:import-from :state :*state* :make-state) | 12 | (:import-from :state :*state* :make-state) |
| 13 | (:import-from :str) | 13 | (:import-from :str) |
| 14 | (:import-from :ukkoclot/src/readtable :readtable) | ||
| 14 | (:import-from :ukkoclot/src/db :with-db) | 15 | (:import-from :ukkoclot/src/db :with-db) |
| 15 | (:import-from :ukkoclot/src/serializing :fixup-value) | 16 | (:import-from :ukkoclot/src/serializing :fixup-value) |
| 16 | (:import-from :ukkoclot/src/strings :escape-xml :is-tg-whitespace :is-tg-whitespace-str) | 17 | (:import-from :ukkoclot/src/strings :escape-xml :is-tg-whitespace :is-tg-whitespace-str) |
| @@ -18,8 +19,7 @@ | |||
| 18 | (:jzon :com.inuoe.jzon)) | 19 | (:jzon :com.inuoe.jzon)) |
| 19 | (:export :main)) | 20 | (:export :main)) |
| 20 | (in-package :ukkoclot/src/main) | 21 | (in-package :ukkoclot/src/main) |
| 21 | 22 | (in-readtable readtable) | |
| 22 | (enable-f-strings) | ||
| 23 | 23 | ||
| 24 | (defvar *in-prod* nil) | 24 | (defvar *in-prod* nil) |
| 25 | 25 | ||