Index: trunk/csv.lisp
===================================================================
--- trunk/csv.lisp	(revision trunk,11)
+++ trunk/csv.lisp	(revision trunk,12)
@@ -2,4 +2,5 @@
 (require '#:parse)
 (require '#:cl-ppcre)
+(require '#:local-time)
 (use-package '#:dso-lex)
 (import 'parse::substring)
@@ -35,5 +36,5 @@
 	(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,6 +58,5 @@
   (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))