Revert "Refactor: to embrace the new dnd.api package more fully"

This reverts commit ab0d667b3776786461d15112b648aafc3f00280f.

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*))