From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 10 Jan 2016 02:15:24 +0000 (+0000)
Subject: doc/list-exports.lisp: Add in the obvious interactive rune.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/1c1a9bf16b17e504b000c30b4653e34ddc6845d1?ds=inline

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 38ec285..eab4d54 100644
--- 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"))))
+
+#+interactive
+(with-open-file (*standard-output* #p"doc/SYMBOLS" :direction :output
+		 :if-exists :supersede :if-does-not-exist :create)
+  (report-project-symbols))