summaryrefslogtreecommitdiff
path: root/src/config.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/config.lisp')
-rw-r--r--src/config.lisp6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/config.lisp b/src/config.lisp
index 03ded98..cf04c1c 100644
--- a/src/config.lisp
+++ b/src/config.lisp
@@ -1,6 +1,6 @@
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/config 3(defpackage :ukkoclot/src/config
4 (:documentation "Stuff for loading the configuration of the bot") 4 (:documentation "Stuff for loading the configuration of the bot")
5 (:nicknames :conf) 5 (:nicknames :conf)
6 (:use :c2cl :iterate) 6 (:use :c2cl :iterate)
@@ -17,7 +17,7 @@
17 #:db-path 17 #:db-path
18 #:dev-group 18 #:dev-group
19 #:owner)) 19 #:owner))
20(in-package :ukkoclot/config) 20(in-package :ukkoclot/src/config)
21 21
22(defstruct config 22(defstruct config
23 (bot-name "Ukko's Clot" :type string) 23 (bot-name "Ukko's Clot" :type string)
@@ -55,7 +55,7 @@
55 (let ((data (with-open-file (f filename) (read f)))) 55 (let ((data (with-open-file (f filename) (read f))))
56 (iter 56 (iter
57 (for (kw-name value) on data by #'cddr) 57 (for (kw-name value) on data by #'cddr)
58 (let ((name (intern (symbol-name kw-name) :ukkoclot/config))) 58 (let ((name (intern (symbol-name kw-name) :ukkoclot/src/config)))
59 (setf (slot-value config name) value)))))) 59 (setf (slot-value config name) value))))))
60 60
61(defun serialize (config) 61(defun serialize (config)