Red Hat Linux
Click URL instructions:
Right-click on ad, choose "Copy Link", then paste here →
(This may not be possible with some types of ads)
You seem to have CSS turned off.
Please don't fill out this field.
Briefly describe the problem (required):
Please provide the ad click URL, if possible:
Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv27617/tests
220.127.116.11: Fix bug: READ-LINE did not return T for the last line of ANSI-STREAM.
Reported by Yoshinori Tahara.
RCS file: /cvsroot/sbcl/sbcl/tests/stream.impure.lisp,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- stream.impure.lisp 30 Dec 2007 22:30:44 -0000 1.28
+++ stream.impure.lisp 15 Jun 2008 05:28:24 -0000 1.29
@@ -486,5 +486,16 @@
(with-open-stream (stream (make-synonym-stream '*stream*))
(assert (input-stream-p stream))))
+;;; READ-LINE on ANSI-STREAM did not return T for the last line
+;;; (reported by Yoshinori Tahara)
+(let ((pathname "test-read-line-eol"))
+ (with-open-file (out pathname :direction :output :if-exists :supersede)
+ (format out "a~%b"))
+ (let ((result (with-open-file (in pathname)
+ (list (multiple-value-list (read-line in nil nil))
+ (multiple-value-list (read-line in nil nil))
+ (multiple-value-list (read-line in nil nil))))))
+ (delete-file pathname)
+ (assert (equal result '(("a" nil) ("b" t) (nil t))))))
Sign up for the SourceForge newsletter: