propsed patch for mload.lisp -- fix printfile bug



I suggest a more informative return value, say file.  e.g.

Robert Dodier wrote:

>            do
> +          (if (eq tem 'eof) (return t))
.......................................file

if that will print satisfactorily.  Then you might
even know where the file came from.
If pathnames don't print nicely, maybe this would
have to be changed slightly.