add drops

spawns.lisp

@@ -56,9 +56,7 @@ separate csvs."
     (parse-error () nil)))
 
 (defun csv-to-hash-tables (csv)
-  (let* ((keys (mapcar (lambda (k)
-                         (let ((k2 (string-upcase (serapeum:string-replace " " k ""))))
-                           (intern k2 :keyword)))
+  (let* ((keys (mapcar #'string-to-hash-table-key
                        (car csv)))
          (result (make-array 0 :adjustable t :fill-pointer 0)))
     (loop for row in csv