From ed877693c4a3f7cc9fade27b11f3833799ac59aa Mon Sep 17 00:00:00 2001 From: Grant Horner Date: Sun, 4 Jan 2026 15:44:34 -0500 Subject: [PATCH] set up compilation of exe --- main.lisp | 17 +++++++++++++---- utils.lisp | 3 ++- 2 files changed, 15 insertions(+), 5 deletions(-) diff --git a/main.lisp b/main.lisp index fb7a05d..2c4a44b 100644 --- a/main.lisp +++ b/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 - (reload-mob-data) +(defun main () + (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) diff --git a/utils.lisp b/utils.lisp index a08022b..5c7f2bb 100644 --- a/utils.lisp +++ b/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)