(defvar *debugout-pathname* #p"debugout.c")
(export 'test-module)
-(defun test-module (path reason)
+(defun test-module (path &key reason)
"Read a module from PATH, to exercise the machinery.
If REASON is non-nil, then output the module to `*debugout-pathname*' with