diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 17:38:32 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 17:39:04 -0700 |
| commit | ccb72f945a35429182a3bc8d43ed5426999f81c7 (patch) | |
| tree | 411046132a306fa8b89915763ecfacda05a87ec6 /src/connection/local.lisp | |
| parent | 8b0ad2fb6c0b75f9f0075aac551f271cb0500441 (diff) | |
| download | consfigurator-ccb72f945a35429182a3bc8d43ed5426999f81c7.tar.gz | |
specify element type in :LOCAL CONNECTION-WRITEFILE for streams
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/local.lisp')
| -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) |