From 84e566e92bd7c00fa01bd08c5d22ed77cbeb1a4c Mon Sep 17 00:00:00 2001
From: Logan Hunt <loganhunt@simponic.xyz>
Date: Tue, 31 May 2022 14:56:24 -0700
Subject: Add elapsed time to each split

---
 util.lisp | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'util.lisp')

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