diff options
| -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 |