blob: c3382aa57cffc9f22f2cc6854a9585102213fd40 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
;;;; init.lisp
(in-package #:dnd.api)
(defun init-db (&optional config)
(if config
nil
(make-instance
'db:mp-store
: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*))
|