1 files changed, 7 insertions, 6 deletions

diff --git a/src/db.lisp b/src/db.lisp
index 5d08e6a..8fab0db 100644
--- a/src/db.lisp
+++ b/src/db.lisp
@@ -6,7 +6,7 @@
   (:export :get-inline-bot-type :set-inline-bot-type :with-db))
 (in-package :ukkoclot/db)
 
-(defparameter +target-version+ 1
+(defconstant +target-version+ 1
   "Intended DB version")
 
 (defmacro with-db ((name path) &body body)
@@ -20,7 +20,10 @@
       (integer->inline-bot-type type-int))))
 
 (defun set-inline-bot-type (db id type)
-  (execute-non-query db "INSERT OR REPLACE INTO inline_bots (id, type) VALUES (?, ?)" id (inline-bot-type->integer type)))
+  (execute-non-query db
+                     "INSERT OR REPLACE INTO inline_bots (id, type) VALUES (?, ?)"
+                     id
+                     (inline-bot-type->integer type)))
 
 (defun inline-bot-type->integer (type)
   (case type
@@ -66,8 +69,7 @@
      (execute-non-query db "
 CREATE TABLE inline_bots_enum (
   id INTEGER PRIMARY KEY,
-  value TEXT UNIQUE
-)")
+  value TEXT UNIQUE)")
      (execute-non-query db "
 INSERT INTO inline_bots_enum(id, value)
 VALUES (?, 'blacklisted'), (?, 'whitelisted')"
@@ -78,6 +80,5 @@ VALUES (?, 'blacklisted'), (?, 'whitelisted')"
      (execute-non-query db "
 CREATE TABLE inline_bots (
   id INTEGER PRIMARY KEY,
-  type INTEGER REFERENCES inline_bots_enum(id)
-)"))
+  type INTEGER REFERENCES inline_bots_enum(id))"))
     (t (error "Unreachable upgrade step reached ~A" new-version))))