[cmucl-cvs] CMUCL commit: src/code (stream.lisp)

[Raymond Toy]

    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)