From c5f11d0f55086104e747b35bb968a18ee62c926e Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Sun, 28 Apr 2013 16:38:02 +0300 Subject: [PATCH] specify latin-1 as external format for read-whole-file The current implementation assumes a single-byte-per-char format; make that explicit. --- jscl.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 1.7.10.4