(defun make-dumped-stream (i/o input-output output-output)
  (make-two-way-stream
   (make-echo-stream i/o input-output)
   (make-broadcast-stream i/o output-output)))


(with-open-file (input "/tmp/input.txt" :direction :output  :if-does-not-exist :create :if-exists :append)
  (with-open-file (output "/tmp/output.txt" :direction :output :if-does-not-exist :create :if-exists :append)
    (let* ((*terminal-io* (make-dumped-stream *terminal-io* input output))
           (*standard-input* *terminal-io*)
           (*standard-output* *terminal-io*))
      (com.informatimago.common-lisp.interactive.interactive:repl))))