diff options
author | colin <colin@cicadas.surf> | 2023-02-18 09:18:10 -0800 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2023-02-18 09:18:10 -0800 |
commit | a6c251123bbe9c174294287d494c4be99e40287a (patch) | |
tree | eb665c9d45f97c0ad84079ff146d78594d40e92b /utilities.lisp | |
parent | a0cfd78039197e45ce8dd8aacea4efb575c0b1c1 (diff) |
Saturday Pair Session
Diffstat (limited to 'utilities.lisp')
-rw-r--r-- | utilities.lisp | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/utilities.lisp b/utilities.lisp index b6cf16a..5644f2e 100644 --- a/utilities.lisp +++ b/utilities.lisp @@ -23,3 +23,15 @@ :external-format :utf-8)) :external-format :latin1)) +(defparameter +user-nick-chars+ "0123456789abcdefghijklmnopqrstuvwxyz-._") + +(defun/t valid-nick-p (nick) + :tests + (eql ("??????") nil) + (eql ("⚔") nil) + (eql ("cool_beans") t) + (eql ("COOOL_BEANS") t) + (eql ("COOL beans") nil) + :end + (unless (zerop (length nick)) + (every (lambda (char) (find char +user-nick-chars+)) (string-downcase nick)))) |