specify latin-1 as external format for read-whole-file

[jscl.git] / jscl.lisp

diff --git a/jscl.lisp b/jscl.lisp
index 6350f7c..a1c4dea 100644 (file)
--- a/jscl.lisp
+++ b/jscl.lisp
@@ -47,7 +47,7 @@
     (load (source-pathname (car input)))))
 
 (defun read-whole-file (filename)
-  (with-open-file (in filename)
+  (with-open-file (in filename :external-format :latin-1)
     (let ((seq (make-array (file-length in) :element-type 'character)))
       (read-sequence seq in)
       seq)))