From 232acc37b77d0662b6d062b8561c5ae49565c56b Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Sun, 19 Oct 2025 07:30:29 +0300
Subject: Get rid of a couple warnings in main.lisp

---
 src/main.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/main.lisp b/src/main.lisp
index 07a486b..caef651 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -132,6 +132,7 @@
                        :allow-sending-without-reply t)))
 
 (defun is-bad-text (text)
+  (declare (ignore text))
   ;; TODO:
   nil)
 
@@ -245,6 +246,7 @@
               nil)))))
 
 (defun on-text-command (bot msg text cmd)
+  (declare (ignore text))
   (let ((simple-cmd (simplify-cmd bot cmd)))
     (log:debug "text-command: ~A AKA ~A" cmd simple-cmd)
     ;; TODO: Replace this cond with a nicer dispatch.  Something like string-case?
-- 
cgit v1.2.3