Add ocicl lint

1 files changed, 6 insertions, 6 deletions

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)))))))))))