anchor.diff:              :read-receipt-path read-receipt-path
               :write-receipt-path write-receipt-path
               :progress progress
  -            :separator separator))))
  -
  -(defun dump-resultset (stream resultset incremental comparator progress separator)
  +            :separator separator
  +            :escape escape))))
  +
  +(defun replace-separator (string separator replacement)
  +  (if (and (stringp string) replacement)
  +      (cl-ppcre:regex-replace-all separator string replacement)
  +      string))
  +
  +(defun dump-resultset (stream resultset incremental comparator progress separator escape)
     (let ((last-value
            (iter (for row = (next-row resultset))
                  (for i from 1)
                  (while row)
  -               (format stream "~A" (car row))
  +               (format stream "~A"
  +                       (replace-separator (car row) separator escape))
                  (dolist (col (cdr row))
  -                 (format stream "~A~A" separator col))
  +                 (format stream "~A~A"
  +                         separator
  +                         (replace-separator col separator escape)))
                  (format stream "~%")
                  (when (and progress
                             (= (mod i progress) 0))
  
positive.code: 
  (defun dump-table (conn table data-stream
                     &key (columns "*") limit incremental last-value progress
                          separator)
    (bind ((limit-spec (if limit (format nil "LIMIT ~D" limit) ""))
           (where-spec (if (and incremental last-value)
                           (format nil "WHERE ~A > ?" incremental)
  
negative.code:                         (cond ((equal separator "TAB") #?"\t")
                                ((equal separator "NUL") #?"\0")
                                (t separator))))
             (escape (param escape))
             (output-path (param output
                                 :then (parse-namestring output)))
             (incremental (param incremental
  