From a802a63364721a2da95b75bc8ab19abfa4888373 Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Sat, 18 Oct 2025 08:19:45 +0300
Subject: Bunch more tiny improvements

---
 src/db.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/db.lisp')

diff --git a/src/db.lisp b/src/db.lisp
index 8fab0db..b0159c0 100644
--- a/src/db.lisp
+++ b/src/db.lisp
@@ -29,13 +29,13 @@
   (case type
     (:blacklisted 0)
     (:whitelisted 1)
-    (t (error "Unknown inline bot type ~S" type))))
+    (otherwise (error "Unknown inline bot type ~S" type))))
 
 (defun integer->inline-bot-type (num)
   (case num
     (0 :blacklisted)
     (1 :whitelisted)
-    (t (error "Unknown inline bot type value ~S" num))))
+    (otherwise (error "Unknown inline bot type value ~S" num))))
 
 (defun upgrade (db)
   (execute-non-query db "CREATE TABLE IF NOT EXISTS version(id INTEGER PRIMARY KEY, version INTEGER)")
@@ -81,4 +81,4 @@ VALUES (?, 'blacklisted'), (?, 'whitelisted')"
 CREATE TABLE inline_bots (
   id INTEGER PRIMARY KEY,
   type INTEGER REFERENCES inline_bots_enum(id))"))
-    (t (error "Unreachable upgrade step reached ~A" new-version))))
+    (otherwise (error "Unreachable upgrade step reached ~A" new-version))))
-- 
cgit v1.2.3