external/clem/make-tinaa-docs.lisp

   1
   2 (require 'asdf)
   3
   4 (asdf:operate 'asdf:load-op 'clem)
   5 (asdf:operate 'asdf:load-op 'clem-doc)
   6 (asdf:operate 'asdf:load-op 'tinaa)
   7
   8 (defun clem-doc-system::make-tinaa-docs ()
   9   (asdf:operate 'asdf:load-op 'tinaa)
  10   (let ((tinaa::*short-documentation-length* 512))
  11     (tinaa:document-system
  12      'package 'clem (asdf:component-pathname
  13                      (asdf:find-component
  14                       (asdf:find-component
  15                        (asdf:find-system 'clem-doc)
  16                        "doc")
  17                       "tinaa")))))
  18
  19 (clem-doc-system::make-tinaa-docs)