From f7abccc38ceda7024ca375d34ed88f4fb561ef02 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sun, 5 Mar 2023 16:36:44 -0800
Subject: Reorganized codebase

---
 src/dnd.lisp | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 src/dnd.lisp

(limited to 'src/dnd.lisp')

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)))
-- 
cgit v1.2.3