1 files changed, 11 insertions, 1 deletions
diff --git a/init.lisp b/init.lisp
index 535da6c..c3382aa 100644
--- a/init.lisp
+++ b/init.lisp
@@ -1,6 +1,6 @@
 ;;;; init.lisp
 
-(in-package #:dnd)
+(in-package #:dnd.api)
 
 (defun init-db (&optional config)
   (if config
@@ -9,3 +9,13 @@
        'db:mp-store
        :directory (merge-pathnames "dnd-store/" (user-homedir-pathname))
        :subsystems (list (make-instance 'db:store-object-subsystem)))))
+
+(defvar *dnd-arena* nil
+  "The instance of the HTTP server.")
+
+(defun conjure-arena ()
+  (setf *dnd-arena* (lzb:create-server))
+  (lzb:install-app *dnd-arena* 'api)
+  (lzb:start-server *dnd-arena*))
+
+