oops delete errors

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))))))

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)