echo-stream-input-stream (echo-stream-input-stream stream) エコーストリームの入力コンポーネント。 Run(let ((in (make-string-input-stream "x"))) (let ((s (make-echo-stream in (make-string-output-stream)))) (eq (echo-stream-input-stream s) in))) ; => T