From c129745433a3acd62e600adc6c9a1000b66f6f4c Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Mon, 20 Feb 2023 10:02:57 -0800
Subject: Add: route building protocol functions

---
 utilities.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'utilities.lisp')

diff --git a/utilities.lisp b/utilities.lisp
index 5644f2e..7acdbca 100644
--- a/utilities.lisp
+++ b/utilities.lisp
@@ -34,4 +34,6 @@
   (eql ("COOL beans") nil)
   :end 
   (unless (zerop (length nick))
-    (every (lambda (char) (find char +user-nick-chars+)) (string-downcase nick))))
+    (loop :for char :across nick
+          :always (find char +user-nick-chars+
+                        :test #'char-equal))))
-- 
cgit v1.2.3