doc/list-exports.lisp: Add in the obvious interactive rune.

Just saves typing.  You know?

diff --git a/doc/list-exports.lisp b/doc/list-exports.lisp
index 38ec28535767726037923ebb37432c9d52d10b33..eab4d546a82405680260d2ee33261076fc5bd912 100644 (file)
--- a/doc/list-exports.lisp
+++ b/doc/list-exports.lisp
@@ -435,3 +435,8 @@ (defun report-project-symbols ()
     (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 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))