diff -Nru cl-csv-20150302/cl-csv.asd cl-csv-20150608/cl-csv.asd --- cl-csv-20150302/cl-csv.asd 2015-01-15 15:07:58.000000000 +0000 +++ cl-csv-20150608/cl-csv.asd 2015-05-26 15:36:05.000000000 +0000 @@ -8,9 +8,10 @@ (in-package cl-csv.system) (defsystem :cl-csv + :author "Russ Tyndall (russ@acceleration.net), Acceleration.net" :description "Facilities for reading and writing CSV format files" :licence "BSD" - :version "0.1" + :version "1.0" :components ((:file "packages") (:file "vars") (:file "read-until") @@ -18,10 +19,11 @@ :depends-on (:iterate :alexandria :cl-interpol)) (defsystem :cl-csv-test + :author "Russ Tyndall (russ@acceleration.net), Acceleration.net" :description "Tests for a library providing a cl-csv class, and useful functionality around this" :licence "BSD" - :version "0.1" + :version "1.0" :components ((:module :tests :serial t :components ((:file "csv")))) diff -Nru cl-csv-20150302/cl-csv-clsql.asd cl-csv-20150608/cl-csv-clsql.asd --- cl-csv-20150302/cl-csv-clsql.asd 2015-01-15 15:07:58.000000000 +0000 +++ cl-csv-20150608/cl-csv-clsql.asd 2015-05-26 15:36:05.000000000 +0000 @@ -8,9 +8,10 @@ (in-package cl-csv.system) (defsystem :cl-csv-clsql + :author "Russ Tyndall (russ@acceleration.net), Acceleration.net" :description "Facilities for reading and writing CSV format files (and importing and exporting csvs from databases)" :licence "BSD" - :version "0.1" + :version "1.0" :components ((:file "data-table") (:file "clsql")) :depends-on (:clsql-helper :cl-csv :data-table-clsql)) diff -Nru cl-csv-20150302/cl-csv-data-table.asd cl-csv-20150608/cl-csv-data-table.asd --- cl-csv-20150302/cl-csv-data-table.asd 2015-01-15 15:07:58.000000000 +0000 +++ cl-csv-20150608/cl-csv-data-table.asd 2015-05-26 15:36:05.000000000 +0000 @@ -1,8 +1,9 @@ (asdf:defsystem :cl-csv-data-table + :author "Russ Tyndall (russ@acceleration.net), Acceleration.net" :description "Facilities for converting CSV data to data-tables" :licence "BSD" - :version "0.1" + :version "1.0" :components ((:file "data-table")) :depends-on (:cl-csv :data-table)) diff -Nru cl-csv-20150302/clsql.lisp cl-csv-20150608/clsql.lisp --- cl-csv-20150302/clsql.lisp 2015-01-15 15:07:58.000000000 +0000 +++ cl-csv-20150608/clsql.lisp 2015-05-26 15:36:05.000000000 +0000 @@ -44,6 +44,13 @@ (funcall log-fn "Starting import ~a" table-name) (let ((dt (or data-table (get-data-table-from-csv file t t sample-size))) (keys (copy-list keys))) + ;; we are putting this in a database, we cannot have empty column names + (setf + (data-table:column-names dt) + (iter + (with i = 0) + (for c in (data-table:column-names dt)) + (collect (or c #?"anon_${ (incf i) }")))) (dolist (k '(:file :data-table :row-fn :sample-size :log-fn :log-frequency)) (remf keys k)) (funcall log-fn "CSV scanned for type information") diff -Nru cl-csv-20150302/debian/changelog cl-csv-20150608/debian/changelog --- cl-csv-20150302/debian/changelog 2015-05-02 14:01:01.000000000 +0000 +++ cl-csv-20150608/debian/changelog 2015-07-15 13:44:31.000000000 +0000 @@ -1,3 +1,9 @@ +cl-csv (20150608-1) unstable; urgency=medium + + * Quicklisp release update. + + -- Dimitri Fontaine Wed, 15 Jul 2015 16:44:31 +0300 + cl-csv (20150302-1) unstable; urgency=medium * Quicklisp release update. diff -Nru cl-csv-20150302/README.md cl-csv-20150608/README.md --- cl-csv-20150302/README.md 2015-01-15 15:07:58.000000000 +0000 +++ cl-csv-20150608/README.md 2015-05-26 15:36:05.000000000 +0000 @@ -30,7 +30,8 @@ There are two modes for escaping currently * :quote - by default cl-csv treats `""` as an escape for a single double-quote - * :following - read the character after the escape sequence verbatim + * :following - read the character after the escape sequence verbatim, commonly + the `*quote-escape*` will be set to `#\\` when the escape mode is following. ## Signals and Restarts * `*enable-signals*` will cause a csv-data-read or csv-row-read to be