1 files changed, 3 insertions, 0 deletions
diff --git a/util.lisp b/util.lisp
index 4c13d19..7645f6b 100644
--- a/util.lisp
+++ b/util.lisp
@@ -37,3 +37,6 @@ YES is everything for which PRED is T, NO is everything else."
 (defun lambda-opt-p (x)
   (find x '(cl:&optional cl:&key cl:&aux cl:&allow-other-keys cl:&rest)
         :test #'eq))
+
+(defun make-keyword (name)
+  (intern (string name) :keyword))