1 (asdf:operate
'asdf
:load-op
:xuriella
)
2 (asdf:operate
'asdf
:load-op
:atdoc
)
3 (let* ((base (asdf:component-pathname
(asdf:find-system
:xuriella
)))
4 (atdoc-directory (merge-pathnames "doc/atdoc/" base
)))
5 (ensure-directories-exist atdoc-directory
)
6 (atdoc:generate-html-documentation
9 :index-title
"Xuriella XSLT API reference"
10 :heading
"Xuriella XSLT"
11 :css
(merge-pathnames "doc/atdoc.css" base
)