1 (defpackage #:cl-trane-doc
(:use
#:common-lisp
))
2 (in-package #:cl-trane-doc
)
4 (defparameter *dir
* (make-pathname :defaults
*load-pathname
*
5 :name nil
:type nil
:version nil
))
6 (asdf:oos
'asdf
:load-op
:cl-trane
)
7 (load (merge-pathnames "dependency-graph.lisp" *dir
*))
8 (load (merge-pathnames "lispdoc.lisp" *dir
*)) ; http://homepage.mac.com/svc/openmcl/readme.html
10 (trane-dependency-graph:graph
(merge-pathnames "dependency-graph.dot" *dir
*))
11 (let ((trane-common:*config
* (py-configparser:make-config
))
12 (trane-common:*db
* nil
)
13 (trane-common:*init-functions
* nil
))
14 (lispdoc:lispdoc-html
*dir
* :trane-common
:trane-bb
:trane-taxonomy
:trane-passengers
))
15 #+b0rken
(tinaa:document-system
':asdf-system
:cl-trane
16 (merge-pathnames "html/" *dir
*))