From b948683f36ca3a8df1cbaf04c6af1be875d79d3d Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Mon, 27 Jun 2011 15:05:27 +0000 Subject: [PATCH] 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. --- code/stream.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/code/stream.lisp b/code/stream.lisp index cc4a5ea23..e2bcadc2c 100644 --- a/code/stream.lisp +++ b/code/stream.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.100 2011/03/03 16:43:28 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/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) -- GitLab