diff options
Diffstat (limited to 'third_party/lisp/mime4cl/streams.lisp')
| -rw-r--r-- | third_party/lisp/mime4cl/streams.lisp | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/third_party/lisp/mime4cl/streams.lisp b/third_party/lisp/mime4cl/streams.lisp index 7e9fc16d31..71a32d84e4 100644 --- a/third_party/lisp/mime4cl/streams.lisp +++ b/third_party/lisp/mime4cl/streams.lisp @@ -27,14 +27,6 @@ (flexi-stream-root-stream (flexi-stream-stream stream)) stream)) -(defun redirect-stream (in out &key (buffer-size 4096)) - "Consume input stream IN and write all its content to output stream OUT. -The streams' element types need to match." - (let ((buf (make-array buffer-size :element-type (stream-element-type in)))) - (loop for pos = (read-sequence buf in) - while (> pos 0) - do (write-sequence buf out :end pos)))) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defclass coder-stream-mixin () |