1 files changed, 17 insertions, 0 deletions
diff --git a/src/dnd.lisp b/src/dnd.lisp
new file mode 100644
index 0000000..ae5ae86
--- /dev/null
+++ b/src/dnd.lisp
@@ -0,0 +1,17 @@
+;;;; dnd.lisp
+
+(in-package #:dnd)
+
+(defvar *dnd-arena* nil
+  "The instance of the HTTP server")
+
+(defun start ()
+  (init-db)
+  (setf *dnd-arena* (lzb:create-server))
+  (lzb:install-app *dnd-arena* (lzb:app 'dnd))
+  (lzb:start-server *dnd-arena*))
+
+(defun boot ()
+  (swank:create-server :port 9876 :dont-close t)
+  (conjure-arena)
+  (loop (sleep 1)))