From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 30 Aug 2015 09:58:38 +0000 (+0100)
Subject: doc/list-exports.lisp: Also scan `optparse.lisp'.
X-Git-Url: https://git.distorted.org.uk/~mdw/sod/commitdiff_plain/6198298178ae405a8d5060648a30b0db83009cfe?hp=fcb6c0fb72f7e2211322cfc303ee403bdf3ddd7d

doc/list-exports.lisp: Also scan `optparse.lisp'.
---

diff --git a/doc/list-exports.lisp b/doc/list-exports.lisp
index abbf94a..bcbf79f 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,10 @@
   (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"))
+	 (sod-files (set-difference (files sod) (list utilities))))
     (report-symbols (mapcar #'file-name sod-files) "SOD")
     (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"))))