set up compilation of exe

main.lisp

@@ -4,9 +4,20 @@
 (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")
 
-(comment
+(defun main ()
-  (reload-mob-data)
+  (sb-ext:disable-debugger)
+  (let ((args (rest sb-ext:*posix-argv*)))
+    (when (member "--fail" args :test #'string=)
+      (error "Simulated error!"))))
 
+(defun create-exe-and-die ()
+  (sb-ext:save-lisp-and-die
+   "lispostory"
+   :toplevel 'lispostory:main
+   :executable t
+   :save-runtime-options :accept-runtime-options))
+
+(comment
   (defvar foo nil
     (setf foo (serapeum/bundle:random-elt *chronostory-mobs*)
           *chronostory-drops*
@@ -22,5 +33,3 @@
 
               (hash-table-keys (aref (@ *chronostory-spawns* :el-nath) 0))
               (hash-table-keys (aref *chronostory-drops* 0))))))))
-
-;; (sb-ext:save-lisp-and-die "my-prog" :toplevel #'show-mobs :executable t)

utils.lisp

@@ -1,5 +1,6 @@
 (defpackage :lispostory
-  (:use :cl :alexandria :serapeum))
+  (:use :cl :alexandria :serapeum)
+  (:export :main :create-exe-and-die))
 
 (in-package :lispostory)