diff --git a/alexandria-1/io.lisp b/alexandria-1/io.lisp index 4c74ace583ca8e87d73c443e95792774736fd49d..728d9dcdcc286a29357d25d32befe9347bb36bea 100644 --- a/alexandria-1/io.lisp +++ b/alexandria-1/io.lisp @@ -68,7 +68,9 @@ which is only sent to WITH-OPEN-FILE when it's not NIL." The EXTERNAL-FORMAT parameter will be passed directly to WITH-OPEN-FILE unless it's NIL, which means the system default." (with-input-from-file - (file-stream pathname :external-format external-format) + (file-stream pathname + :external-format external-format + :element-type ':default) (read-stream-content-into-string file-stream :buffer-size buffer-size))) (defun write-string-into-file (string pathname &key (if-exists :error) @@ -80,7 +82,8 @@ The EXTERNAL-FORMAT parameter will be passed directly to WITH-OPEN-FILE unless it's NIL, which means the system default." (with-output-to-file (file-stream pathname :if-exists if-exists :if-does-not-exist if-does-not-exist - :external-format external-format) + :external-format external-format + :element-type ':default) (write-sequence string file-stream))) (defun read-stream-content-into-byte-vector (stream &key ((%length length))