diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-10-23 11:16:28 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-10-23 11:16:28 -0500 |
| commit | db6d9cf0dc158e2175d91b90f203995f86d545eb (patch) | |
| tree | 6ea0e6797d934ce7e91e9640bb5e73e056dda69f | |
| parent | bc21ac80e5b3b1449a7c7b7df36fc2d48d9ba355 (diff) | |
Add: default name util
| -rw-r--r-- | utilities.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
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 |