4 (asdf:operate
'asdf
:load-op
'clem
)
5 (asdf:operate
'asdf
:load-op
'clem-doc
)
6 (asdf:operate
'asdf
:load-op
'tinaa
)
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
15 (asdf:find-system
'clem-doc
)
19 (clem-doc-system::make-tinaa-docs
)