build/atdoc.lisp

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