X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/dfdcf6ca08c0c619900fd7d81893121f80f02d9b..437938912d93089d7716a119363e49db5a57cba8:/doc/list-exports.lisp

diff --git a/doc/list-exports.lisp b/doc/list-exports.lisp
index abbf94a..93ee8be 100644
--- a/doc/list-exports.lisp
+++ b/doc/list-exports.lisp
@@ -123,6 +123,10 @@
     (when (or (specialized-on-p #'sod-parser:expand-parser-spec 1 symbol)
 	      (specialized-on-p #'sod-parser:expand-parser-form 1 symbol))
       (push :parser things))
+    (when (get symbol 'optparse::opthandler)
+      (push :opthandler things))
+    (when (get symbol 'optparse::optmacro)
+      (push :optmacro things))
     (nreverse things)))
 
 (defun categorize-symbols (paths package)
@@ -340,7 +344,12 @@
   (let* ((sod (asdf:find-system "sod"))
 	 (parser-files (files (by-name sod "parser")))
 	 (utilities (by-name sod "utilities"))
-	 (sod-files (remove utilities (files sod))))
+	 (sod-frontend (asdf:find-system "sod-frontend"))
+	 (optparse (by-name sod-frontend "optparse"))
+	 (frontend (by-name sod-frontend "frontend"))
+	 (sod-files (set-difference (files sod) (list utilities))))
     (report-symbols (mapcar #'file-name sod-files) "SOD")
+    (report-symbols (mapcar #'file-name (list frontend)) "SOD-FRONTEND")
     (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"))))