Index: trunk/csv.lisp
===================================================================
--- trunk/csv.lisp	(revision 4)
+++ trunk/csv.lisp	(revision 5)
@@ -37,5 +37,5 @@
     (cl-ppcre:regex-replace-all "\"\"" (trim s) "\"")))
 
-(deflexer lex-csv
+(deflexer lex-csv (:priority-only t)
   ("," comma)
   ("\\r\\n?|\\n" newline)
@@ -46,4 +46,5 @@
 
 (defun lex-all-csv (input)
+  (declare (optimize (speed 2) (debug 1)))
   (labels ((lex-all (start tokens)
 	     (multiple-value-bind (class image next-offset)
@@ -77,5 +78,5 @@
   (row (t-value (* row-rest) (= t-newline))
        :filter (lambda (row) (cons (caar row) (mapcar #'second (second row)))))
-  (row-rest ((= t-comma) t-value) :filter car))
+  (row-rest ((= t-comma) t-value) :filter 'car))