Commit 30915c8a7f8e8326effd91f5d34da6b3a0960096

Thomas de Grivel 2019-01-09T13:02:04

fix encoding errors

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
diff --git a/files.lisp b/files.lisp
index 0902015..3a40611 100644
--- a/files.lisp
+++ b/files.lisp
@@ -68,8 +68,8 @@
 
 ;;  Temporary files
 
-(defun open-temporary-file (&key (element-type 'base-char)
-                              (external-format :default)
+(defun open-temporary-file (&key (element-type 'character)
+                              (external-format :utf-8)
                               (prefix "/tmp/.tmp"))
   (let ((template (merge-pathnames
                    (pathname (format nil "~A.XXXXXXXXXXXX" prefix)))))