(use csv-xml)
(define csvdata "a,b,123,\"four five six\"
1,2,3.4,\"another string\"")
(csv->list (make-csv-reader (open-input-string csvdata)'((strip-leading-whitespace? #t)(strip-trailing-whitespace? #t)) ))