Public archive for the Return to Ritherdon project.
https://www.nicolaellisandritherdon.com
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
Tree:
9650008ce9
master
stable
unstable
${ noResults }
ritherdon-archive/hunchentoot-example/src/packages.lisp
42 lines
1.1 KiB
42 lines
1.1 KiB
;;;
|
|||
;;; define helper packages,
|
|||
;;; the models,
|
|||
;;; the web,
|
|||
;;; and the base package that relies on all of them.
|
|||
;;;
|
|||
|
|||
(defpackage ritherdon-archive/utils
|
|||
(:use :cl
|
|||
:log4cl)
|
|||
(:export #:format-date
|
|||
#:i18n-load
|
|||
#:_
|
|||
#:parse-iso-date)
|
|||
(:documentation "Utilities that do not depend on models."))
|
|||
|
|||
(defpackage ritherdon-archive/models
|
|||
(:use :cl)
|
|||
(:export :connect
|
|||
:make-product
|
|||
:select-products
|
|||
:find-by))
|
|||
|
|||
(defpackage ritherdon-archive/web
|
|||
(:use :cl)
|
|||
(:import-from :easy-routes
|
|||
:defroute)
|
|||
(:export :start-app
|
|||
:stop-app)
|
|||
(:local-nicknames (#:a #:alexandria)
|
|||
(#:models #:ritherdon-archive/models)
|
|||
(#:utils #:ritherdon-archive/utils)))
|
|||
|
|||
(defpackage ritherdon-archive
|
|||
(:use :cl
|
|||
:log4cl)
|
|||
(:export :main :run)
|
|||
(:local-nicknames (#:a #:alexandria)
|
|||
(#:models #:ritherdon-archive/models)
|
|||
(#:web #:ritherdon-archive/web)
|
|||
(#:utils #:ritherdon-archive/utils)))
|