1 files changed, 3 insertions, 0 deletions
diff --git a/util.lisp b/util.lisp
index 180a1e3..3369a03 100644
--- a/util.lisp
+++ b/util.lisp
@@ -9,3 +9,6 @@
 
 (defun max-length (lists)
   (reduce (lambda (a x) (max a x)) (mapcar #'length lists)))
+
+(defun not-empty-string (str)
+  (not (zerop (length str))))