24 lines
764 B
Common Lisp
24 lines
764 B
Common Lisp
;;;; cl-scopes/app/demo/main - sample main program
|
|
|
|
(defpackage :scopes/app/demo
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:config :scopes/config)
|
|
(:cs-hx :scopes/frontend/cs-hx)
|
|
(:core :scopes/core)
|
|
(:forge :scopes/forge)
|
|
(:logging :scopes/logging)
|
|
(:server :scopes/web/server)
|
|
(:util :scopes/util))
|
|
(:export #:main))
|
|
|
|
(in-package :scopes/app/demo)
|
|
|
|
(defun main()
|
|
(let ((config-path (util:relative-path "config" "etc")))
|
|
(format t "~%Hello World.~%config-path: ~s~%" config-path)
|
|
(load config-path))
|
|
(core:setup-services)
|
|
;(setf forge:*forge-env* (forge:forge-env))
|
|
;(forge:setup-builtins)
|
|
(forge:repl)
|
|
(core:shutdown))
|