+(defun make-codec-character-stream (real-stream &optional (charset (system-charset)))
+ (declare (type stream real-stream))
+ (make-instance 'codec-character-stream :decoder (make-decoder charset) :encoder (make-encoder charset) :back real-stream))
+