|
|
@ -205,7 +205,8 @@
|
|
|
|
(let ((thread nil))
|
|
|
|
(let ((thread nil))
|
|
|
|
(defun run-server ()
|
|
|
|
(defun run-server ()
|
|
|
|
(if (or (null thread) (not (thread-alive-p thread)))
|
|
|
|
(if (or (null thread) (not (thread-alive-p thread)))
|
|
|
|
(setf thread (make-thread (lambda () (run #'app)) :name "woo-server-thread"))))
|
|
|
|
(setf thread (make-thread (lambda () (run #'app :address "0.0.0.0"))
|
|
|
|
|
|
|
|
:name "woo-server-thread"))))
|
|
|
|
(defun stop-server ()
|
|
|
|
(defun stop-server ()
|
|
|
|
(progn thread (destroy-thread thread) (setf thread nil)))
|
|
|
|
(progn thread (destroy-thread thread) (setf thread nil)))
|
|
|
|
(defun restart-server ()
|
|
|
|
(defun restart-server ()
|
|
|
|