From edeab2d09444e02a2eeb3adb2bf7933a2851c5b3 Mon Sep 17 00:00:00 2001
From: Logan Hunt <loganhunt@simponic.xyz>
Date: Sun, 29 May 2022 21:31:48 -0700
Subject: Get a timer on the screen finally

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

(limited to 'util.lisp')

diff --git a/util.lisp b/util.lisp
index 584f442..180a1e3 100644
--- a/util.lisp
+++ b/util.lisp
@@ -6,3 +6,6 @@
   `(let ((it (getf ,options ,opt)))
      (when it
        ,@body)))
+
+(defun max-length (lists)
+  (reduce (lambda (a x) (max a x)) (mapcar #'length lists)))
-- 
cgit v1.3