From e2a60e8d2b8e41bcd2c9a39d8e2210f701b92353 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Tue, 7 Mar 2023 18:36:45 -0800
Subject: Add: growing an app skeleton

---
 src/utilities.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/utilities.lisp')

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)))
-- 
cgit v1.2.3