X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=doc%2Fmanual%2Fgray-streams-examples.texinfo;h=b2d3ed11dbcb4deb81576abf62321a6d2fbdc3c4;hb=9788b728b947d70f486188e36e4e817733b06a78;hp=6868a66ceae7ca96f036625135fe2583dcdd6695;hpb=70121be1341e2f52b932644ca31752fdbd9dc85d;p=sbcl.git

diff --git a/doc/manual/gray-streams-examples.texinfo b/doc/manual/gray-streams-examples.texinfo
index 6868a66..b2d3ed1 100644
--- a/doc/manual/gray-streams-examples.texinfo
+++ b/doc/manual/gray-streams-examples.texinfo
@@ -47,13 +47,14 @@ character input streams must implement @codew{stream-read-char} and
 @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