aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-10-30 18:15:42 -0500
committerColin Okay <colin@cicadas.surf>2022-10-30 18:15:42 -0500
commit9416cf44e2e687566e16d76c763e6869a610b925 (patch)
tree020310eff908cce006663d967e7f8c9262809fdf
parentaca3f9e03e5768cce31cbb560fa312a87ab7d49b (diff)
Fix: run function
-rw-r--r--build.lisp3
-rw-r--r--run.lisp3
-rw-r--r--vampire.lisp2
3 files changed, 7 insertions, 1 deletions
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 )