blob: ae5ae868ae25b8c48e7815865ab0d2412dd9f508 (
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 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)))
|