diff options
Diffstat (limited to 'mulkcms-hunchentoot.lisp')
-rw-r--r-- | mulkcms-hunchentoot.lisp | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/mulkcms-hunchentoot.lisp b/mulkcms-hunchentoot.lisp index 4300871..4d7f3c1 100644 --- a/mulkcms-hunchentoot.lisp +++ b/mulkcms-hunchentoot.lisp @@ -75,5 +75,12 @@ :port *server-port* :address *server-address*)) (setq mulkcms::*authorization-page-handler* #'handle-authorization-page) - (hunchentoot:start *acceptor*)) + (hunchentoot:start *acceptor*) + *acceptor*) +(defun run-server () + (let ((acceptor (start-server))) + (unwind-protect + (loop + (sleep 86400)) + (stop acceptor :soft t)))) |