Changeset trunk,12 for trunk/csv.lisp

Timestamp:

06/21/2007 05:15:55 AM (19 years ago)

Author:

dsowen

revision id:

svn-v3-trunk0:2948df59-2b31-0410-8e06-c40c0b09d5b6:trunk:12

Message:

Added some documentation to parse3.
Modified csv example for better tree output.

File:

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

trunk/csv.lisp

@@ -2 +2 @@
 (require '#:parse)
 (require '#:cl-ppcre)
+(require '#:local-time)
 (use-package '#:dso-lex)
 (import 'parse::substring)
@@ -35 +36 @@
         (destructuring-bind (class image) (first token-list)
           (when (eq class ',class)
-            (values t (rest token-list) (list class image))))))))
+            (values t (rest token-list) (list image))))))))
 
 (defmatcher comma)
@@ -57 +58 @@
   (row (t-value (* row-rest) (= t-newline))
        (lambda (row)
-         (princ row)
-         (mapcar #'second (cons (first row) (mapcar #'second (second row))))))
+         (mapcar #'car (cons (first row) (mapcar #'second (second row))))))
   (row-rest ((= t-comma) t-value) cdr))