Subject: propsed patch for mload.lisp -- fix printfile bug
From: Robert Dodier
Date: Fri, 3 Dec 2004 21:47:01 -0800 (PST)
Hi everyone,
I'd like to propose this patch for mload.lisp --
diff -u -r1.19 mload.lisp
--- src/mload.lisp 25 Nov 2004 02:36:03 -0000 1.19
+++ src/mload.lisp 4 Dec 2004 05:42:00 -0000
@@ -945,8 +945,9 @@
(defun $printfile (file)
(setq file ($file_search1 file '((mlist) $file_search_usage)))
(with-open-file (st file)
- (loop while (setq tem (read-char st)) with tem
+ (loop while (setq tem (read-char st nil 'eof)) with tem
do
+ (if (eq tem 'eof) (return t))
(princ tem))
(namestring file)
))
At present when you execute printfile ("foo.bar")$ you
always get "Maxima encountered a Lisp error: end of file".
This seems inappropriate.
Let me know what you think. I certainly wouldn't commit
this patch without some nods of approval.
regards,
Robert Dodier
__________________________________
Do you Yahoo!?
Yahoo! Mail - Helps protect you from nasty viruses.
http://promotions.yahoo.com/new_mail