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

oops delete errors

Browse Source
This commit is contained in:
Grant Horner
2026-01-06 16:50:10 -05:00
parent b234753eb8
commit 47acd93cfc
2 changed files with 8 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
main.lisp
View File

@@ -36,9 +36,7 @@
(defun main () (defun main ()
(disable-debugger) (disable-debugger)
(error "foo")
(let ((args (uiop:raw-command-line-arguments))) (let ((args (uiop:raw-command-line-arguments)))
(error "foo")
(when (find-string "--fail" args) (when (find-string "--fail" args)
(error "Simulated error!")) (error "Simulated error!"))
(when (find-string "--version" args) (when (find-string "--version" args)
@@ -48,11 +46,12 @@
(refresh-data arg maybe-file-path))))) (refresh-data arg maybe-file-path)))))
(defun create-exe-and-die () (defun create-exe-and-die ()
(sb-ext:save-lisp-and-die #+sbcl (sb-ext:save-lisp-and-die
"lispostory" "lispostory"
:toplevel 'lispostory:main :toplevel 'lispostory:main
:executable t :executable t
:save-runtime-options :accept-runtime-options)) :save-runtime-options :accept-runtime-options
:compression t))
(comment (comment
(maybe-pass #'make-spawn-data-source (get-arg "--output" '("/root/lispostory/lispostory" "refresh" "spawns" "--output" "/root/api/chronostory/spawns.json"))) (maybe-pass #'make-spawn-data-source (get-arg "--output" '("/root/lispostory/lispostory" "refresh" "spawns" "--output" "/root/api/chronostory/spawns.json")))
@@ -83,6 +82,5 @@
(gethash "ITEMNAME" m)) (gethash "ITEMNAME" m))
(coerce *chronostory-drops* 'list) (coerce *chronostory-drops* 'list)
(hash-table-keys (aref (@ *chronostory-spawns* :el-nath) 0)) (hash-table-keys (aref (@ *chronostory-spawns* :el-nath) 0))
(hash-table-keys (aref *chronostory-drops* 0)))))) (hash-table-keys (aref *chronostory-drops* 0))))))

3
utils.lisp
View File

@@ -29,8 +29,9 @@
(defun string->bool (s) (defun string->bool (s)
(if (string-equal (string-downcase s) "true") t nil)) (if (string-equal (string-downcase s) "true") t nil))
(defun find-string (str seq) (defun find-string (str seq)
(sequence:find str seq :test #'string-equal)) (find str seq :test #'string-equal))
(defclass data-source () (defclass data-source ()
((cache :initform nil :accessor cache) ((cache :initform nil :accessor cache)