Fix *csv-path-root* at run-time.

When using LOAD CSV it's possible to load from filename matching a
regular expression, but for that to work the *csv-path-root* needs to be
properly setup at run-time.

src/parser.lisp

@@ -1698,6 +1698,7 @@ load database
 		  (summary       (null *state*))
 		  (*state*       (or *state* (pgloader.utils:make-pgstate)))
 		  (state-after   ,(when after `(pgloader.utils:make-pgstate)))
+                  (*csv-path-root* ,*cwd*)
                   ,@(pgsql-connection-bindings pg-db-uri gucs)
                   ,@(batch-control-bindings options))
 

test/csv-filename-pattern.load

@@ -0,0 +1,10 @@
+load csv
+    from all filenames matching ~<data/matching.*csv$> (id, field)
+    into postgresql:///pgloader?matching
+    with fields optionally enclosed by '"', 
+         fields terminated by ',',
+         truncate
+
+  before load do
+    $$ drop table if exists matching; $$,
+    $$ create table matching(id int, field text); $$;

test/data/matching-1.csv

@@ -0,0 +1 @@
+1,"foo"

test/data/matching-2.csv

@@ -0,0 +1 @@
+2,"bar"

test/data/matching-3.csv

@@ -0,0 +1 @@
+3,"baz"