diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-10-30 18:15:42 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-10-30 18:15:42 -0500 |
| commit | 9416cf44e2e687566e16d76c763e6869a610b925 (patch) | |
| tree | 020310eff908cce006663d967e7f8c9262809fdf | |
| parent | aca3f9e03e5768cce31cbb560fa312a87ab7d49b (diff) | |
Fix: run function
| -rw-r--r-- | build.lisp | 3 | ||||
| -rw-r--r-- | run.lisp | 3 | ||||
| -rw-r--r-- | vampire.lisp | 2 |
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 ) @@ -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 ) |