27 lines
893 B
Common Lisp
27 lines
893 B
Common Lisp
(in-package :ml-survey)
|
|
|
|
|
|
(defun create-server (name port &key address document-root)
|
|
(let ((acceptor (make-instance 'hunchentoot:easy-acceptor
|
|
:address address
|
|
:name name
|
|
:document-root document-root
|
|
:port port)))
|
|
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)
|
|
(hunchentoot:stop acceptor))
|
|
|
|
(defun restart-server (acceptor)
|
|
(hunchentoot:stop acceptor)
|
|
(hunchentoot:start acceptor))
|
|
|
|
(defvar *app* (create-server 'app
|
|
8080
|
|
:document-root
|
|
"~/quicklisp/local-projects/dev.metalisp.survey/"))
|