"use" serapeum and alexandria

drops.lisp

@@ -12,10 +12,10 @@
          (keys (mapcar #'string-to-hash-table-key (subseq header 0 num-fields-to-keep)))
          (drops (map 'vector
                      (lambda (row)
-                       (serapeum:pairhash keys (subseq row 0 num-fields-to-keep)))
+                       (pairhash keys (subseq row 0 num-fields-to-keep)))
                      (cdr csv))))
     (setf *chronostory-drops* drops)
-    (alexandria-2:write-string-into-file
+    (write-string-into-file
      (shasht:write-json drops nil)
      "drops.json"
      :if-exists :overwrite