add drops

2026-01-03 21:41:46 -05:00
parent c9e20a21c8
commit 678254dc24
5 changed files with 39 additions and 5 deletions
--- a/utils.lisp
+++ b/utils.lisp
@@ -16,3 +16,7 @@

 (defun map-vector (func vec)
  (map 'vector func vec))
+
+(defun string-to-hash-table-key (s)
+  (let ((k2 (string-upcase (serapeum:string-replace " " s ""))))
+    (intern k2 :keyword)))