diff options
Diffstat (limited to 'src/config.lisp')
| -rw-r--r-- | src/config.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/config.lisp b/src/config.lisp index 17c5c73..1bac762 100644 --- a/src/config.lisp +++ b/src/config.lisp | |||
| @@ -5,7 +5,7 @@ | |||
| 5 | (:export | 5 | (:export |
| 6 | :config-load :config-merge | 6 | :config-load :config-merge |
| 7 | :config-p | 7 | :config-p |
| 8 | :config-bot-name :config-bot-token :config-db-path :config-dev-group :config-owner)) | 8 | :config-bot-name :config-bot-token :config-db-path :config-dev-group :config-owner :config-swank-port)) |
| 9 | (in-package :ukkoclot/config) | 9 | (in-package :ukkoclot/config) |
| 10 | 10 | ||
| 11 | (defmacro defconfig (&rest slots-and-types) | 11 | (defmacro defconfig (&rest slots-and-types) |
| @@ -18,7 +18,8 @@ | |||
| 18 | :bot-token string | 18 | :bot-token string |
| 19 | :db-path string | 19 | :db-path string |
| 20 | :dev-group integer | 20 | :dev-group integer |
| 21 | :owner integer) | 21 | :owner integer |
| 22 | :swank-port (integer 1 65536)) | ||
| 22 | 23 | ||
| 23 | (defun config-load (filename) | 24 | (defun config-load (filename) |
| 24 | (apply #'make-config (with-open-file (f filename) (read f)))) | 25 | (apply #'make-config (with-open-file (f filename) (read f)))) |