1 2 3 4 5 6 7 8 9 10 11 12
;;;; 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*))