Merge branch 'master' of github.com:AccelerationNet/cl-csv

AccelerationNet · Jan 4, 2012 · e576306 · e576306
2 parents 61efff4 + 34adf77
commit e576306
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/csv.lisp b/csv.lisp
@@ -226,7 +226,8 @@
              (T (finish-item) (return items))))
 
           ;; the next characters are an escape sequence, start skipping
-          ((and (eql state :collecting-quoted)
+          ((and (or (eql state :collecting-quoted)
+                    (eql state :collecting))
                 *quote-escape* ;; if this is null there is no escape
                 (%escape-seq? line i *quote-escape* llen elen))
            (store-char *quote*)