doc/structures.tex: Better typesetting of structure expressions.

[sod] / doc / list-exports.lisp

diff --git a/doc/list-exports.lisp b/doc/list-exports.lisp
index c67d0ab..eab4d54 100644 (file)
--- a/doc/list-exports.lisp
+++ b/doc/list-exports.lisp
@@ -1,3 +1,8 @@
+(cl:defpackage #:sod-exports
+  (:use #:common-lisp))
+
+(cl:in-package #:sod-exports)
+
 (defun symbolicate (&rest things)
   (intern (apply #'concatenate 'string (mapcar #'string things))))
 
@@ -404,6 +409,7 @@
   (analyse-generic-functions package)
   (terpri))
 
+(export 'report-project-symbols)
 (defun report-project-symbols ()
   (labels ((components (comp)
             (slot-value comp 'asdf::components))
@@ -429,3 +435,8 @@
     (report-symbols (mapcar #'file-name parser-files) "SOD-PARSER")
     (report-symbols (mapcar #'file-name (list optparse)) "OPTPARSE")
     (report-symbols (mapcar #'file-name (list utilities)) "SOD-UTILITIES"))))
+
+#+interactive
+(with-open-file (*standard-output* #p"doc/SYMBOLS" :direction :output
+                :if-exists :supersede :if-does-not-exist :create)
+  (report-project-symbols))