diff options
author | colin <colin@cicadas.surf> | 2023-03-05 16:36:44 -0800 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2023-03-05 16:36:44 -0800 |
commit | f7abccc38ceda7024ca375d34ed88f4fb561ef02 (patch) | |
tree | 432d6673e9e8d53b5fbc43e25a684b654f6dea1d /src/dnd.lisp | |
parent | 89d0d687992b41f7f0f9b0d3da19d9d587f06010 (diff) |
Reorganized codebase
Diffstat (limited to 'src/dnd.lisp')
-rw-r--r-- | src/dnd.lisp | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/src/dnd.lisp b/src/dnd.lisp new file mode 100644 index 0000000..ae5ae86 --- /dev/null +++ b/src/dnd.lisp @@ -0,0 +1,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))) |