tests: better reports when /bin/ed is not present.

[sbcl.git] / doc / manual / gray-streams-examples.texinfo

diff --git a/doc/manual/gray-streams-examples.texinfo b/doc/manual/gray-streams-examples.texinfo
index 6868a66..c26d699 100644 (file)
--- 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