diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-24 10:48:32 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-24 10:48:32 -0700 |
| commit | a2e8c5c9c9ecc1db41610be659c19c9ac1705e77 (patch) | |
| tree | b4b8ff9ff8d41f0aa986cd8f2ad57039dc6b96fc /src/connection/local.lisp | |
| parent | e6e5d86704fff151da5a667102587cb369bd20b1 (diff) | |
| download | consfigurator-a2e8c5c9c9ecc1db41610be659c19c9ac1705e77.tar.gz | |
add :ELEMENT-TYPE in COPY-STREAM-TO-STREAM for :LOCAL connections
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/local.lisp')
| -rw-r--r-- | src/connection/local.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/connection/local.lisp b/src/connection/local.lisp index f62c022..e78cee6 100644 --- a/src/connection/local.lisp +++ b/src/connection/local.lisp @@ -71,7 +71,8 @@ root Lisp is running on, as the root Lisp's uid.")) (with-open-file (stream path :direction :output :if-exists :supersede :element-type (stream-element-type contents)) - (copy-stream-to-stream contents stream))) + (copy-stream-to-stream contents stream + :element-type (stream-element-type contents)))) (defmethod connection-upload ((connection local-connection) from to) (copy-file from to)) |