propsed patch for mload.lisp -- fix printfile bug

--- Richard Fateman <fateman@cs.berkeley.edu> wrote:

> 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.

OK, but (return t) is just the value returned by the loop, right?
The return value of $printfile is (namestring file), not shown
above although it was in the patch I posted originally, I think.

Experimenting with the code as it stands, with (return t),
a construct such as printfile("foo.bar")$ does yield 
"foo.bar" (as a Lisp string). 

Regards,
Robert Dodier


		
__________________________________ 
Do you Yahoo!? 
The all-new My Yahoo! - Get yours free! 
http://my.yahoo.com