summaryrefslogtreecommitdiff
path: root/util.lisp
diff options
context:
space:
mode:
authorLogan Hunt <loganhunt@simponic.xyz>2022-05-29 21:31:48 -0700
committerLogan Hunt <loganhunt@simponic.xyz>2022-05-29 21:31:48 -0700
commitedeab2d09444e02a2eeb3adb2bf7933a2851c5b3 (patch)
tree774027b0b7f31f457a4f01eb977ed8922bcfaf6a /util.lisp
parent088a03c2e788127c5b8606d0a6a1956ff58e4ec1 (diff)
downloadlispruns-edeab2d09444e02a2eeb3adb2bf7933a2851c5b3.tar.gz
lispruns-edeab2d09444e02a2eeb3adb2bf7933a2851c5b3.zip
Get a timer on the screen finally
Diffstat (limited to 'util.lisp')
-rw-r--r--util.lisp3
1 files changed, 3 insertions, 0 deletions
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)))