1 files changed, 6 insertions, 0 deletions
diff --git a/init.lisp b/init.lisp
index 67e1fb9..c3382aa 100644
--- a/init.lisp
+++ b/init.lisp
@@ -10,6 +10,12 @@
        :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*))