diff --git a/src/parsers/command-csv.lisp b/src/parsers/command-csv.lisp
index af91471..1c2afa4 100644
--- a/src/parsers/command-csv.lisp
+++ b/src/parsers/command-csv.lisp
@@ -71,8 +71,8 @@
 (defrule option-fields-not-enclosed (and kw-fields kw-not kw-enclosed)
   (:constant (cons :quote nil)))
 
-(defrule quote-quote     "double-quote"   (:constant "\"\""))
-(defrule backslash-quote "backslash-quote" (:constant "\\\""))
+(defrule quote-quote     "double-quote"    (:constant #(#\" #\")))
+(defrule backslash-quote "backslash-quote" (:constant #(#\\ #\")))
 (defrule escaped-quote-name    (or quote-quote backslash-quote))
 (defrule escaped-quote-literal (or (and #\" #\") (and #\\ #\")) (:text t))
 (defrule escaped-quote         (or escaped-quote-literal