X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=doc%2Fmanual%2Fgray-streams-examples.texinfo;h=c26d699d0d458479a8a4363987c7642e39a6a243;hb=a01e7ac2e8a9f3afae8f759381a0829fceb5bfde;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..c26d699 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-input-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