@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