From 3e9d8c0468fbcd57a0a8653a01fe7ccefe00b2eb Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Thu, 14 Mar 2013 15:37:54 +0100 Subject: [PATCH] The portable :external-format name seems to be :utf-8 --- csv.lisp | 4 ++-- mysql.lisp | 2 +- mytest.lisp | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/csv.lisp b/csv.lisp index 1b51f62..b8400e8 100644 --- a/csv.lisp +++ b/csv.lisp @@ -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 diff --git a/mysql.lisp b/mysql.lisp index b2472fd..b39ef93 100644 --- a/mysql.lisp +++ b/mysql.lisp @@ -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) diff --git a/mytest.lisp b/mytest.lisp index 5d25907..c482dd7 100644 --- a/mytest.lisp +++ b/mytest.lisp @@ -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))