diff options
| -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 ) |