From 47acd93cfc20e32c37c34d8f57de1b440f553fd5 Mon Sep 17 00:00:00 2001 From: Grant Horner Date: Tue, 6 Jan 2026 16:50:10 -0500 Subject: [PATCH] oops delete errors --- main.lisp | 14 ++++++-------- utils.lisp | 3 ++- 2 files changed, 8 insertions(+), 9 deletions(-) diff --git a/main.lisp b/main.lisp index b9da21c..af3adef 100644 --- a/main.lisp +++ b/main.lisp @@ -36,9 +36,7 @@ (defun main () (disable-debugger) - (error "foo") (let ((args (uiop:raw-command-line-arguments))) - (error "foo") (when (find-string "--fail" args) (error "Simulated error!")) (when (find-string "--version" args) @@ -48,11 +46,12 @@ (refresh-data arg maybe-file-path))))) (defun create-exe-and-die () - (sb-ext:save-lisp-and-die - "lispostory" - :toplevel 'lispostory:main - :executable t - :save-runtime-options :accept-runtime-options)) + #+sbcl (sb-ext:save-lisp-and-die + "lispostory" + :toplevel 'lispostory:main + :executable t + :save-runtime-options :accept-runtime-options + :compression t)) (comment (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)) (coerce *chronostory-drops* 'list) - (hash-table-keys (aref (@ *chronostory-spawns* :el-nath) 0)) (hash-table-keys (aref *chronostory-drops* 0)))))) diff --git a/utils.lisp b/utils.lisp index 2fccd14..d166500 100644 --- a/utils.lisp +++ b/utils.lisp @@ -29,8 +29,9 @@ (defun string->bool (s) (if (string-equal (string-downcase s) "true") t nil)) + (defun find-string (str seq) - (sequence:find str seq :test #'string-equal)) + (find str seq :test #'string-equal)) (defclass data-source () ((cache :initform nil :accessor cache)