From afb2b84512e65ed0d52deb676ce808deb3b0a387 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Sat, 1 Jun 2024 11:40:31 +0200
Subject: [PATCH] If needed change document-root for acceptor

---
 src/main.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/main.lisp b/src/main.lisp
index 922f327..d915a96 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -8,7 +8,9 @@
                                  :port port)))
     acceptor))
 
-(defun start-server (acceptor)
+(defun start-server (acceptor &key document-root)
+  (if document-root
+      (setf (hunchentoot:acceptor-document-root acceptor) document-root))
   (hunchentoot:start acceptor))
 
 (defun stop-server (acceptor)