The portable :external-format name seems to be :utf-8

This commit is contained in:
Dimitri Fontaine 2013-03-14 15:37:54 +01:00
parent d2b040f197
commit 3e9d8c0468
3 changed files with 4 additions and 4 deletions

View File

@ -33,7 +33,7 @@ Finally returns how many rows where read and processed."
;; we just ignore files that don't exist
(input filename
:direction :input
:external-format :utf8
:external-format :utf-8
:if-does-not-exist nil)
(when input
;; read in the text file, split it into columns, process NULL columns
@ -169,7 +169,7 @@ Finally returns how many rows where read and processed."
;; we just ignore files that don't exist
(input filename
:direction :input
:external-format :utf8
:external-format :utf-8
:if-does-not-exist nil)
(when input
(loop

View File

@ -273,7 +273,7 @@ GROUP BY table_name, index_name;" dbname)))
(with-open-file (text-file filename
:direction :output
:if-exists :supersede
:external-format :utf8)
:external-format :utf-8)
(map-rows dbname table-name
:process-row-fn
(lambda (row)

View File

@ -78,7 +78,7 @@
(with-open-file (csv filename
:direction :output
:if-exists :supersede
:external-format :utf8)
:external-format :utf-8)
(loop
for count from 1
for row = (cl-mysql:next-row q :type-map (make-hash-table))