website/src/main.lisp

23 lines
393 B
Common Lisp
Raw Normal View History

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))