mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2025-08-08 07:16:58 +02:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
csv.lisp
View File

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

2
mysql.lisp
View File

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

2
mytest.lisp
View File

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