diff options
Diffstat (limited to '')
| -rw-r--r-- | src/state.lisp (renamed from src/bot/impl.lisp) | 19 |
1 files changed, 13 insertions, 6 deletions
diff --git a/src/bot/impl.lisp b/src/state.lisp index ea1aa03..98e2048 100644 --- a/src/bot/impl.lisp +++ b/src/state.lisp | |||
| @@ -1,12 +1,19 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | 1 | ;; SPDX-License-Identifier: EUPL-1.2 |
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> |
| 3 | (defpackage :ukkoclot/bot/impl | 3 | (defpackage :ukkoclot/state |
| 4 | (:use :c2cl :iterate :ukkoclot/config) | 4 | (:use :c2cl :ukkoclot/config) |
| 5 | (:export | 5 | (:export |
| 6 | :bot :bot-p :make-bot | 6 | #:bot |
| 7 | 7 | #:make-bot | |
| 8 | :bot-config :bot-db :bot-base-uri :bot-power-on :bot-username% :bot-id%)) | 8 | #:bot-p |
| 9 | (in-package :ukkoclot/bot/impl) | 9 | #:copy-bot |
| 10 | #:bot-config | ||
| 11 | #:bot-db | ||
| 12 | #:bot-base-uri | ||
| 13 | #:bot-power-on | ||
| 14 | #:bot-username% | ||
| 15 | #:bot-id%)) | ||
| 16 | (in-package :ukkoclot/state) | ||
| 10 | 17 | ||
| 11 | (defstruct (bot (:constructor make-bot%)) | 18 | (defstruct (bot (:constructor make-bot%)) |
| 12 | (config (error "No value given for config") :read-only t) | 19 | (config (error "No value given for config") :read-only t) |