grant/lispostory
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove keyword keys to standardize strings as keys convention

Browse Source
This commit is contained in:
Grant Horner
2026-01-03 22:15:42 -05:00
parent 0204a521b9
commit e15628b20a
3 changed files with 20 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
spawns.lisp
View File

@@ -62,14 +62,14 @@ separate csvs."
(loop for row in csv
with mapname = ""
for hm = (pairhash keys row (dict))
when (let ((name (gethash :monster hm)))
when (let ((name (gethash "Monster" hm)))
(and (string-not-equal "" name)
(string-not-equal "-" name)
(string-not-equal "Monster" name)))
do (progn
(if (and (string-not-equal mapname "") (string-equal (gethash :mapname hm) ""))
(setf (gethash :mapname hm) mapname)
(setf mapname (gethash :mapname hm)))
(if (and (string-not-equal mapname "") (string-equal (gethash "MapName" hm) ""))
(setf (gethash "MapName" hm) mapname)
(setf mapname (gethash "MapName" hm)))
(vector-push-extend hm result)))
result))
@@ -113,5 +113,3 @@ separate csvs."
(if-not *chronostory-spawns*
(reload-spawn-data)
*chronostory-spawns*))
(refresh-spawn-data)