2024-10-05 22:05:26 +09:00
|
|
|
(defpackage #:hp
|
|
|
|
(:nicknames #:hp/main)
|
|
|
|
(:use #:cl)
|
|
|
|
(:local-nicknames (#:jg #:jingle))
|
|
|
|
(:local-nicknames (#:env #:hp/env))
|
|
|
|
(:import-from #:hp/app
|
|
|
|
#:*app*)
|
|
|
|
(:export #:start
|
|
|
|
#:stop
|
2024-11-16 20:37:45 +09:00
|
|
|
#:reload))
|
2024-10-05 22:05:26 +09:00
|
|
|
(in-package #:hp)
|
|
|
|
|
|
|
|
(defun start ()
|
2025-03-28 23:12:07 +09:00
|
|
|
(jg:start *app*))
|
2024-10-05 22:05:26 +09:00
|
|
|
|
|
|
|
(defun stop ()
|
|
|
|
(jg:stop *app*))
|
|
|
|
|
2024-11-16 20:37:45 +09:00
|
|
|
(defun reload ()
|
2024-10-05 22:05:26 +09:00
|
|
|
(stop)
|
|
|
|
(ql:quickload :hp/app)
|
|
|
|
(start))
|