(export 'test-module)
(defun test-module (path reason)
- "Reset the translator's state, read a module from PATH and output it with
- REASON, returning the result as a string."
+ "Read a module from PATH, to exercise the machinery.
+
+ If REASON is non-nil, then output the module to `*debugout-pathname*' with
+ that REASON.
+
+ Return a two-element list (NERROR NWARNING) of the number of errors and
+ warnings encountered while processing the module."
(multiple-value-bind (module nerror nwarning)
(count-and-report-errors () (read-module path))
(when reason