From 1d40a541e41b37d03446b471ef8c072b005ee24e Mon Sep 17 00:00:00 2001
From: Grant Shangreaux <shoshin@cicadas.surf>
Date: Tue, 24 Jan 2023 14:02:27 -0600
Subject: Add: build.lisp with running swank server

---
 .gitignore   |  1 +
 build.lisp   | 16 ++++++++++++++++
 dnd.lisp     |  5 +++++
 package.lisp |  3 ++-
 4 files changed, 24 insertions(+), 1 deletion(-)
 create mode 100644 build.lisp

diff --git a/.gitignore b/.gitignore
index b25c15b..10da9f7 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,2 @@
 *~
+/bin/
diff --git a/build.lisp b/build.lisp
new file mode 100644
index 0000000..8bb5ec5
--- /dev/null
+++ b/build.lisp
@@ -0,0 +1,16 @@
+(ql:quickload :dnd)
+
+(swank:swank-require 
+ '(SWANK-IO-PACKAGE::SWANK-INDENTATION
+   SWANK-IO-PACKAGE::SWANK-TRACE-DIALOG
+   SWANK-IO-PACKAGE::SWANK-PACKAGE-FU
+   SWANK-IO-PACKAGE::SWANK-PRESENTATIONS
+   SWANK-IO-PACKAGE::SWANK-MACROSTEP
+   SWANK-IO-PACKAGE::SWANK-FUZZY
+   SWANK-IO-PACKAGE::SWANK-FANCY-INSPECTOR
+   SWANK-IO-PACKAGE::SWANK-C-P-C
+   SWANK-IO-PACKAGE::SWANK-ARGLISTS
+   SWANK-IO-PACKAGE::SWANK-REPL))
+
+(ensure-directories-exist #P"./bin/")
+(sb-ext:save-lisp-and-die "./bin/dnd" :toplevel #'dnd:boot :executable t)
diff --git a/dnd.lisp b/dnd.lisp
index 9cb4702..7f7dc77 100644
--- a/dnd.lisp
+++ b/dnd.lisp
@@ -10,3 +10,8 @@
   (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)))
diff --git a/package.lisp b/package.lisp
index a844c56..582e854 100644
--- a/package.lisp
+++ b/package.lisp
@@ -14,6 +14,7 @@
                 #:with-plist)
   (:import-from #:spinneret
 		#:with-html
-		#:with-html-string))
+		#:with-html-string)
+  (:export :boot))
 
 
-- 
cgit v1.2.3