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