Changeset 5

Timestamp:

12/08/2009 05:44:23 AM (17 years ago)

Author:

dsowen

Message:

Updated for newer lexer

File:

• trunk/csv.lisp (modified) (3 diffs)

trunk/csv.lisp

@@ -37 +37 @@
     (cl-ppcre:regex-replace-all "\"\"" (trim s) "\"")))
 
-(deflexer lex-csv
+(deflexer lex-csv (:priority-only t)
   ("," comma)
   ("\\r\\n?|\\n" newline)
@@ -46 +46 @@
 
 (defun lex-all-csv (input)
+  (declare (optimize (speed 2) (debug 1)))
   (labels ((lex-all (start tokens)
              (multiple-value-bind (class image next-offset)
@@ -77 +78 @@
   (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))