Settings fix

chatikbot.lisp

@@ -50,8 +50,9 @@
                             collect (list symbol (documentation symbol 'variable) (symbol-value symbol))))))
 
 (def-message-admin-cmd-handler handle-admin-setsetting (:setsetting)
-  (let ((var (read-from-string (car args)))
-        (val (read-from-string (format nil "~{~A~^ ~}" (rest args)))))
+  (let* ((*package* (find-package :chatikbot))
+         (var (read-from-string (car args)))
+         (val (read-from-string (format nil "~{~A~^ ~}" (rest args)))))
     (send-response chat-id (format nil "OK, ~A" (set-setting var val)))))
 
 (defcron process-watchdog ()

db.lisp

@@ -48,14 +48,15 @@
     (db-execute "create unique index if not exists settings_var_unique on settings (var)")))
 
 (defun load-settings ()
-  (loop for (var val) in (db-select "select var, val from settings")
-     do (setf (symbol-value (intern var))
-              (handler-case (read-from-string val)
-                (error (e) (log:error e))))))
+  (let ((*package* (find-package :chatikbot)))
+    (loop for (var val) in (db-select "select var, val from settings")
+       do (setf (symbol-value (intern var))
+                (handler-case (read-from-string val)
+                  (error (e) (log:error e)))))))
 
 (defun set-setting (symbol value)
   (handler-case
-      (progn
+      (let ((*package* (find-package :chatikbot)))
         (db-execute "replace into settings (var, val) values (?, ?)"
                     (symbol-name symbol)
                     (write-to-string value))