clean up drops data

utils.lisp

@@ -20,6 +20,12 @@
 (defun string-to-hash-table-key (s)
   (string-replace " " s ""))
 
+(defun update-hash (hm key f)
+  (setf (@ hm key) (funcall f (@ hm key))))
+
+(defun string->bool (s)
+  (if (string-equal (string-downcase s) "true") t nil))
+
 (defclass data-source ()
   ((cache :initform nil :accessor cache)
    (file-path :initarg :file-path :accessor file-path)))