From 9416cf44e2e687566e16d76c763e6869a610b925 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Sun, 30 Oct 2022 18:15:42 -0500
Subject: Fix: run function

---
 build.lisp   | 3 +++
 run.lisp     | 3 ++-
 vampire.lisp | 2 ++
 3 files changed, 7 insertions(+), 1 deletion(-)
 create mode 100644 build.lisp

diff --git a/build.lisp b/build.lisp
new file mode 100644
index 0000000..a69a352
--- /dev/null
+++ b/build.lisp
@@ -0,0 +1,3 @@
+(ql:quickload :vampire)
+
+(sb-ext:save-lisp-and-die "bin/vampire" :toplevel #'vampire::run-vampire :executable t )
diff --git a/run.lisp b/run.lisp
index 8961b91..aa534bd 100644
--- a/run.lisp
+++ b/run.lisp
@@ -12,4 +12,5 @@
 (defun run-vampire ()
   (let ((conf-file (get-option "--config")))
     (start-vampire (config-from-file conf-file)))
-  (loop while *runningp* do (sleep 1)))
+  (loop
+    (sleep 1)))
diff --git a/vampire.lisp b/vampire.lisp
index 16665fc..b207c8a 100644
--- a/vampire.lisp
+++ b/vampire.lisp
@@ -40,6 +40,8 @@
 (defun when-logged-in? (fn)
   (<?> 'session-user fn 'redirect-to-root))
 
+
+
 (defun start-vampire (config)
   (setf *config* config)
   (initialize-database config )
-- 
cgit v1.2.3