diff options
| author | colin <colin@cicadas.surf> | 2023-02-20 10:02:57 -0800 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2023-02-20 10:02:57 -0800 |
| commit | c129745433a3acd62e600adc6c9a1000b66f6f4c (patch) | |
| tree | 1f8e4d68f210346d760f54c78c9f2cc1232e74d9 /utilities.lisp | |
| parent | fc4b6e145457bc057b050170245d290b9b70fbe8 (diff) | |
Add: route building protocol functions
Diffstat (limited to 'utilities.lisp')
| -rw-r--r-- | utilities.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
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)))) |