From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Sun, 28 Apr 2013 13:38:02 +0000 (+0300)
Subject: specify latin-1 as external format for read-whole-file
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=c5f11d0f55086104e747b35bb968a18ee62c926e

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

  The current implementation assumes a single-byte-per-char format;
  make that explicit.
---

diff --git a/jscl.lisp b/jscl.lisp
index 6350f7c..a1c4dea 100644
--- 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)))