From ec7de1aa1ad2bc14b3b1572ea4cc5024a6c662ae Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Sat, 18 Oct 2025 03:06:09 +0300
Subject: Add ocicl lint

---
 src/inline-bots.lisp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/inline-bots.lisp')

diff --git a/src/inline-bots.lisp b/src/inline-bots.lisp
index caf210a..94ed478 100644
--- a/src/inline-bots.lisp
+++ b/src/inline-bots.lisp
@@ -17,14 +17,13 @@
 
 (defun on-inline-bot (bot msg via)
   (let ((ty (db:get-inline-bot-type (bot-db bot) (user-id via))))
-    (if (eq ty :whitelisted)
-        t
-        (progn
+    (or (eql ty :whitelisted)
+        (prog1 nil
           (log:info "Deleting an unallowed inline bot message from ~A ~A"
                     (user-username via)
                     (user-id via))
           (try-delete-message bot msg)
-          (unless (eq ty :blacklisted)
+          (unless (eql ty :blacklisted)
             ;; Not explicitly blacklisted, notify dev group
             (let ((whitelist (make-inline-keyboard-button :text "Whitelist"
                                                           :callback-data (format nil "bwl:~A" (user-id via))))
@@ -38,5 +37,6 @@
                             :parse-mode html
                             :reply-markup (make-inline-keyboard-markup
                                            :inline-keyboard
-                                           (make-array '(1 2) :initial-contents (list (list whitelist blacklist)))))))
-          nil))))
+                                           (make-array '(1 2)
+                                                       :initial-contents
+                                                       (list (list whitelist blacklist)))))))))))
-- 
cgit v1.2.3