1 files changed, 16 insertions, 0 deletions
diff --git a/dnd.lisp b/dnd.lisp
index a5cb0a4..4933d85 100644
--- a/dnd.lisp
+++ b/dnd.lisp
@@ -1,3 +1,19 @@
 ;;;; dnd.lisp
 
 (in-package #:dnd)
+
+
+(defvar *dnd-arena* nil
+  "The instance of the HTTP server.")
+
+(defun conjure-arena ()
+  (setf *dnd-arena* (lzb:create-server))
+  (lzb:install-app
+   *dnd-arena*
+   (lzb:app 'dnd.api:dnd.api)) ; annoying but needed for now
+  (lzb:start-server *dnd-arena*))
+
+
+(defun start ()
+  (api:init-db)
+  (conjure-arena))