Improve
This commit is contained in:
parent
0441d03206
commit
21c2d8aa99
18 changed files with 130 additions and 117 deletions
src
|
@ -1,27 +0,0 @@
|
|||
(uiop:define-package :hp
|
||||
(:nicknames #:hp/main)
|
||||
(:use #:cl)
|
||||
(:import-from #:clack)
|
||||
(:import-from #:hp/app
|
||||
#:*app*
|
||||
#:update-routes)
|
||||
(:export #:start-server
|
||||
#:stop-server
|
||||
#:update-routes))
|
||||
(in-package :hp)
|
||||
|
||||
(defparameter *server* nil)
|
||||
|
||||
(defun start-server ()
|
||||
(if *server*
|
||||
(format t "Server is already running.~%")
|
||||
(setf *server* (clack:clackup *app*
|
||||
:address "localhost"
|
||||
:port 3000))))
|
||||
|
||||
(defun stop-server ()
|
||||
(if *server*
|
||||
(prog1
|
||||
(clack:stop *server*)
|
||||
(setf *server* nil))
|
||||
(format t "No servers running.~%")))
|
Loading…
Add table
Add a link
Reference in a new issue