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

diff --git a/doc/list-exports.lisp b/doc/list-exports.lisp
index abbf94aa14b1a9862ee3a088857104ea1d29b6f9..bcbf79fbd5e1c1c5163f2e41b3e1bc273e19168f 100644 (file)
--- a/doc/list-exports.lisp
+++ b/doc/list-exports.lisp
@@ -123,6 +123,10 @@ (defun categorize (symbol)
     (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 (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)
     (nreverse things)))
 
 (defun categorize-symbols (paths package)


@@ -340,7 +344,10 @@ (defun report-project-symbols ()
   (let* ((sod (asdf:find-system "sod"))
         (parser-files (files (by-name sod "parser")))
         (utilities (by-name sod "utilities"))
   (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 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"))))
     (report-symbols (mapcar #'file-name (list utilities)) "SOD-UTILITIES"))))