From: Juho S. <js...@us...> - 2007-04-18 06:00:29
|
Update of /cvsroot/sbcl/sbcl/doc/manual In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv8951/doc/manual Modified Files: gray-streams-examples.texinfo Log Message: 1.0.4.100: gray streams manual fixes * From Richard Kreuter Index: gray-streams-examples.texinfo =================================================================== RCS file: /cvsroot/sbcl/sbcl/doc/manual/gray-streams-examples.texinfo,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- gray-streams-examples.texinfo 20 Dec 2006 15:50:51 -0000 1.1 +++ gray-streams-examples.texinfo 18 Apr 2007 06:00:02 -0000 1.2 @@ -47,13 +47,14 @@ @end group @group -(defclass wrapped-character-input-stream (wrapped-stream) +(defclass wrapped-character-input-stream + (wrapped-stream fundamental-character-output-stream) ()) @end group @group (defmethod stream-read-char ((stream wrapped-character-input-stream)) - (read-char (stream-of stream))) + (read-char (stream-of stream) nil :eof)) @end group @group |