summaryrefslogtreecommitdiff
path: root/dnd.lisp
blob: 7f7dc773d3a636f88358aa3fafed91c99ab9eefb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
;;;; dnd.lisp

(in-package #:dnd)

(defvar *dnd-arena* nil
  "The instance of the HTTP server")

(defun conjure-arena ()
  (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)))