warnings encountered while processing the module."
(multiple-value-bind (module nerror nwarning)
(count-and-report-errors () (read-module path))
- (when reason
+ (when (and module reason)
(with-open-file (out *debugout-pathname*
:direction :output
:if-exists :supersede