1 files changed, 1 insertions, 1 deletions
diff --git a/util.lisp b/util.lisp
index fe2cb69..2c4ccc0 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 empty-p (s)
+(defun nonempty-p (s)
   (not (zerop (length s))))