This commit is contained in:
Akira Tempaku 2024-04-12 03:49:34 +09:00
commit 21c2d8aa99
18 changed files with 130 additions and 117 deletions

View file

@ -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.~%")))