/usr/share/common-lisp/source/trivial-garbage/gendocs.lisp is in cl-trivial-garbage 20130312-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | (in-package :cl-user)
(asdf:load-system :atdoc)
(asdf:load-system :trivial-garbage)
(let* ((base (asdf:component-pathname (asdf:find-system :trivial-garbage)))
(output-directory (merge-pathnames "doc/" base))
(css-file (merge-pathnames "doc/index.css" base)))
(ensure-directories-exist output-directory)
(atdoc:generate-html-documentation '(:trivial-garbage)
output-directory
:single-page-p t
:heading "Trivial Garbage"
:index-title "Trivial Garbage"
:css css-file))
|