Commit c9b5603198fc97c8c09bb415d71c5c5dc47d2c8c

Thomas de Grivel 2014-02-05T07:20:17

Force templates as UTF-8.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
diff --git a/template.lisp b/template.lisp
index eb2d9ba..2e9c031 100644
--- a/template.lisp
+++ b/template.lisp
@@ -124,7 +124,9 @@
     (read-template s)))
 
 (defun read-template-from-file (path)
-  (with-open-file (stream path :element-type 'character)
+  (with-open-file (stream path
+			  :element-type 'character
+			  :external-format :utf-8)
     (read-template stream)))
 
 ;;  Compilation