From db6d9cf0dc158e2175d91b90f203995f86d545eb Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Sun, 23 Oct 2022 11:16:28 -0500
Subject: Add: default name util

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

diff --git a/utilities.lisp b/utilities.lisp
index 525e2c1..fb684d4 100644
--- a/utilities.lisp
+++ b/utilities.lisp
@@ -13,6 +13,9 @@
               host
               (get-universal-time))))))
 
+(defun default-name (kind)
+  (format nil "~a" (gensym kind)))
+
 (defun take (n list &optional share-tail)
   "Returns two values. The first value returned is a list of the first
    N members of LIST. The second value is a list of the remaining
-- 
cgit v1.2.3