Sleep a little bit after starting & stopping a server.

fukamachi · Dec 2, 2014 · 9804d0b · 9804d0b
1 parent ff24507
commit 9804d0b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/src/core/clack.lisp b/src/core/clack.lisp
@@ -124,6 +124,7 @@ Example:
                                                             (*error-output* . ,(if (symbolp *clack-error-output*)
                                                                                    (symbol-value *clack-error-output*)
                                                                                    *clack-error-output*)))))))
+           (sleep 1)
            (format t "~&~:(~A~) server is started.~
              ~%Listening on localhost:~A.~%" server port)
            (when watch

diff --git a/src/core/handler.lisp b/src/core/handler.lisp
@@ -37,7 +37,9 @@
       (stop-watching this)
       (let ((acceptor (acceptor this)))
         (if (bt:threadp acceptor)
-            (bt:destroy-thread acceptor)
+            (progn
+              (bt:destroy-thread acceptor)
+              (sleep 0.5))
             (funcall (intern (string '#:stop) handler-package) acceptor))))))
 
 (doc:start)