diff options
Diffstat (limited to 'src/data.lisp')
-rw-r--r-- | src/data.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/data.lisp b/src/data.lisp index 48d4142..310ffe0 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -266,7 +266,7 @@ appropriate. Falls back to CONNECTION-WRITEFILE." (mapcar #'find-class (list *connection* t t)) nil)) (connection-upload *connection* from to) - (with-open-file (s from) + (with-open-file (s from :element-type '(unsigned-byte 8)) (connection-writefile *connection* to s)))) (defmethod connection-upload-data :around ((data data)) |