Get rid of a couple warnings in main.lisp

1 files changed, 2 insertions, 0 deletions

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?