Index: trunk/csv.lisp
===================================================================
--- trunk/csv.lisp	(revision trunk,8)
+++ trunk/csv.lisp	(revision trunk,9)
@@ -4,5 +4,5 @@
 (import 'parse::with-gensyms)
 (import 'cl-ppcre:scan)
-(load "lisp/parse/parse3")
+(load "parse/parse3")
 
 (defmacro defparser (name rule)
@@ -20,5 +20,5 @@
 (defgrammar
   (file (+ row))
-  (row (value (* (comma value)) #\Newline))
+  (row (value (* ((= comma) value)) (= #\Newline)))
   (comma #\,)
   (value (? (/ dquoted-value squoted-value raw-value)))