diff options
Diffstat (limited to 'vampire.lisp')
| -rw-r--r-- | vampire.lisp | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/vampire.lisp b/vampire.lisp index 247ff4d..86ef4fa 100644 --- a/vampire.lisp +++ b/vampire.lisp @@ -41,13 +41,19 @@ (defun when-logged-in? (fn) (<?> 'session-user fn 'redirect-to-root)) - +(defvar *server*) +(setf (documentation '*server* 'variable) + "The hunchentoot acceptor instance") (defun start-vampire (config) (setf *config* config) (initialize-database config ) (start-downloader-service config) + (setf *server* (make-instance 'hunchentoot:easy-acceptor + :port (port config))) + (hunchentoot:start *server*) + (when (swank-port config) (swank:create-server :port (swank-port config) :dont-close t))) |