From 0204a521b99ce722404809bab052a82bfb8c2fad Mon Sep 17 00:00:00 2001
From: Grant Horner <h.grant.horner@gmail.com>
Date: Sat, 3 Jan 2026 22:01:40 -0500
Subject: [PATCH] "use" serapeum and alexandria

---
 drops.lisp  |  4 ++--
 items.lisp  |  2 +-
 main.lisp   |  6 +++---
 mobs.lisp   |  2 +-
 spawns.lisp | 14 +++++++-------
 utils.lisp  |  4 ++--
 6 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/drops.lisp b/drops.lisp
index 3bce015..39a1108 100644
--- a/drops.lisp
+++ b/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
diff --git a/items.lisp b/items.lisp
index 0381470..99f8014 100644
--- a/items.lisp
+++ b/items.lisp
@@ -46,7 +46,7 @@
     (declare (ignore _))
     (uiop:println "Retrieved chronostory items. Writing out to json file...")
     (setf *chronostory-items* chrono-items)
-    (alexandria-2:write-string-into-file
+    (write-string-into-file
      (shasht:write-json chrono-items nil)
      "items.json"
      :if-exists :overwrite
diff --git a/main.lisp b/main.lisp
index 779fdcc..8db6637 100644
--- a/main.lisp
+++ b/main.lisp
@@ -4,17 +4,17 @@
 (defparameter *chronostory-gacha-search-format* "https://chronostory.onrender.com/api/gacha-search?itemId=~a")
 (defparameter *chronostory-gacha-url-format "https://chronostory.onrender.com/api/gacha-items?gachaId=~a")
 
-(serapeum:comment
+(comment
  (reload-mob-data)
 
  (defvar foo nil)
  (setf foo (serapeum/bundle:random-elt *chronostory-mobs*))
  *chronostory-drops*
 
- (serapeum:filter-map
+ (filter-map
    (lambda (m)
      (when (= (parse-integer (gethash "DROPPERID" m))
-              (parse-integer (serapeum:href foo "mob" "mob_id")))
+              (parse-integer (href foo "mob" "mob_id")))
        (gethash "ITEMNAME" m)))
    (coerce *chronostory-drops* 'list)))
 
diff --git a/mobs.lisp b/mobs.lisp
index c88e3fa..09b63c2 100644
--- a/mobs.lisp
+++ b/mobs.lisp
@@ -37,7 +37,7 @@
     (declare (ignore _))
     (uiop:println "Retrieved chronostory mobs. Writing out to json file...")
     (setf *chronostory-mobs* chrono-mobs)
-    (alexandria-2:write-string-into-file chrono-mobs-str "mobs.json" :if-exists :overwrite :if-does-not-exist :create)
+    (write-string-into-file chrono-mobs-str "mobs.json" :if-exists :overwrite :if-does-not-exist :create)
     (uiop:println "Done!")))
 
 (defun reload-mob-data ()
diff --git a/spawns.lisp b/spawns.lisp
index 874370f..782be43 100644
--- a/spawns.lisp
+++ b/spawns.lisp
@@ -61,7 +61,7 @@ separate csvs."
          (result (make-array 0 :adjustable t :fill-pointer 0)))
     (loop for row in csv
           with mapname = ""
-          for hm = (serapeum:pairhash keys row (serapeum:dict))
+          for hm = (pairhash keys row (dict))
           when (let ((name (gethash :monster hm)))
                  (and (string-not-equal "" name)
                       (string-not-equal "-" name)
@@ -74,7 +74,7 @@ separate csvs."
     result))
 
 (defun parse-sheet (sheet)
-  (let* ((lines (serapeum:lines sheet))
+  (let* ((lines (lines sheet))
          (field (find-first-empty-field (car lines)))
          (first-half (loop for line in lines
                            when (not (uiop:string-prefix-p ",,," line))
@@ -84,20 +84,20 @@ separate csvs."
                             for second-half = (second-half line field)
                             when (not (uiop:string-prefix-p ",,," second-half))
                               collect second-half))
-         (joined (serapeum:string-join (concatenate 'list first-half second-half) #\Newline)))
+         (joined (string-join (concatenate 'list first-half second-half) #\Newline)))
     (csv-to-hash-tables (cl-csv:read-csv joined))))
 
 (defun refresh-spawn-data ()
-  (let ((spawn-data (serapeum:pairhash
+  (let ((spawn-data (pairhash
                      (mapcar #'car *chronostory-spawn-gids*)
                      (mapcar (lambda (pair)
                                (let* ((gid (cdr pair))
                                       (data (drakma:http-request (chronostory-spawn-url gid))))
-                                 (uiop:println (serapeum:concat "Requesting data for " (symbol-name (car pair))))
+                                 (uiop:println (concat "Requesting data for " (symbol-name (car pair))))
                                  (parse-sheet data)))
                              *chronostory-spawn-gids*))))
     (setf *chronostory-spawns* spawn-data)
-    (alexandria-2:write-string-into-file
+    (write-string-into-file
      (shasht:write-json spawn-data nil)
      "spawns.json"
      :if-exists :overwrite
@@ -110,7 +110,7 @@ separate csvs."
     spawn-data))
 
 (defun load-spawn-data ()
-  (serapeum:if-not *chronostory-spawns*
+  (if-not *chronostory-spawns*
                    (reload-spawn-data)
                    *chronostory-spawns*))
 
diff --git a/utils.lisp b/utils.lisp
index 32affe4..bfb72e0 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -1,5 +1,5 @@
 (defpackage :lispostory
-  (:use cl))
+  (:use :cl :alexandria :serapeum))
 
 (in-package :lispostory)
 
@@ -18,5 +18,5 @@
   (map 'vector func vec))
 
 (defun string-to-hash-table-key (s)
-  (let ((k2 (string-upcase (serapeum:string-replace " " s ""))))
+  (let ((k2 (string-upcase (string-replace " " s ""))))
     (intern k2 :keyword)))