Date: Monday, June 27, 2011 @ 08:05:27 Author: rtoy Path: /project/cmucl/cvsroot/src/code

Modified: stream.lisp

Revert last change to fix Trac #43.

That changes causes the Unicode normalization and word-break tests to fail. I do not know why this causes the tests to fail, but it causes the test program to suck in the entire file into a string instead of just one line.

-------------+ stream.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-)

Index: src/code/stream.lisp diff -u src/code/stream.lisp:1.100 src/code/stream.lisp:1.101 --- src/code/stream.lisp:1.100 Thu Mar 3 08:43:28 2011 +++ src/code/stream.lisp Mon Jun 27 08:05:27 2011 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/stream.lisp,v 1.100 2011/03/03 16:43:28 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/stream.lisp,v 1.101 2011/06/27 15:05:27 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -854,6 +854,7 @@ ;; If we didn't convert all the octets, ;; adjust the head pointer to indicate ;; that we have unread octets left. + #+nil (decf (lisp::fd-stream-ibuf-head stream) (- (fd-stream-in-length stream) octet-count)) #+(or debug-frc-sr)