\begin{describe}{var}{*debugout-pathname*}
\end{describe}
-\begin{describe}{fun}{test-module @<path> \&key :reason :clear @> @<status>}
+\begin{describe}{fun}
+ {test-module @<path> \&key :reason :clear :backtrace @> @<status>}
\end{describe}
\begin{describe}{fun}
(defvar *debugout-pathname* #p"debugout.c")
(export 'test-module)
-(defun test-module (path &key reason clear)
+(defun test-module (path &key reason clear backtrace)
"Read a module from PATH, to exercise the machinery.
If CLEAR is non-nil, then reset the translator's state before proceeding.
warnings encountered while processing the module."
(when clear (clear-the-decks))
(multiple-value-bind (module nerror nwarning)
- (count-and-report-errors () (read-module path))
+ (if backtrace (read-module path)
+ (count-and-report-errors () (read-module path)))
(when (and module reason)
(with-open-file (out *debugout-pathname*
:direction :output