diff options
-rw-r--r-- | src/connection/local.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/connection/local.lisp b/src/connection/local.lisp index 9fa4338..f62c022 100644 --- a/src/connection/local.lisp +++ b/src/connection/local.lisp @@ -68,7 +68,9 @@ root Lisp is running on, as the root Lisp's uid.")) (defmethod connection-writefile ((connection local-connection) path (contents stream)) - (with-open-file (stream path :direction :output :if-exists :supersede) + (with-open-file (stream path :direction :output + :if-exists :supersede + :element-type (stream-element-type contents)) (copy-stream-to-stream contents stream))) (defmethod connection-upload ((connection local-connection) from to) |