projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.48.19: another go at fixing the win32 build
[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
@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))
())
@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
@end group
@group