1 files changed, 2 insertions, 2 deletions
diff --git a/util.lisp b/util.lisp
index 3369a03..fe2cb69 100644
--- a/util.lisp
+++ b/util.lisp
@@ -10,5 +10,5 @@
 (defun max-length (lists)
   (reduce (lambda (a x) (max a x)) (mapcar #'length lists)))
 
-(defun not-empty-string (str)
-  (not (zerop (length str))))
+(defun empty-p (s)
+  (not (zerop (length s))))