Allow loading ragged CSV files.

This commit is contained in:
Dimitri Fontaine 2014-01-23 15:07:05 +01:00
parent 4cbe4b3218
commit 516ef08c37
2 changed files with 3 additions and 2 deletions

View File

@ -263,7 +263,7 @@
,(field-name-as-symbol name))))))
`(lambda (row)
(declare (optimize speed) (type list row))
(destructuring-bind (,@args) row
(destructuring-bind (&optional ,@args) row
(declare (ignorable ,@args))
(vector ,@newrow))))))))
;; allow for some debugging

View File

@ -44,5 +44,6 @@ LOAD CSV
4|month should be may, ok|2006-5-12|
5|another month 13, stress retry path|2006-13-10|
6|some null date to play with||
7|and another line|2014-01-22|
7|and a ragged line|
8|and another line|2014-01-22|