diff options
Diffstat (limited to 'src/utilities.lisp')
-rw-r--r-- | src/utilities.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/utilities.lisp b/src/utilities.lisp index 1e16931..539ad28 100644 --- a/src/utilities.lisp +++ b/src/utilities.lisp @@ -66,3 +66,7 @@ #\space (a:conjoin #'asciip #'alphanumericp) (string-downcase string))))) + +(eval-when (:compile-toplevel :load-toplevel :execute) + (defun starts-with-vowel-p (string) + (find (elt string 0) "aeiou" :test #'char-equal))) |