marcuskammer/dev.metalisp.survey
1
0
Fork 0
Code Issues 9 Pull requests Projects Releases Packages Wiki Activity Actions

If needed change document-root for acceptor

Browse source
This commit is contained in:
Marcus Kammer 2024-06-01 11:40:31 +02:00
parent ec33e2f677
commit afb2b84512
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/main.lisp
View file

@ -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)