1.0.4.100: gray streams manual fixes

         * From Richard Kreuter

diff --git a/doc/manual/gray-streams-examples.texinfo b/doc/manual/gray-streams-examples.texinfo
index 6868a66..b2d3ed1 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-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

diff --git a/version.lisp-expr b/version.lisp-expr
index 2878932..2104c16 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.4.99"
+"1.0.4.100"