anchor.diff:                           :then (or (parse-integer limit :junk-allowed t)
                                      (error "'~A' is not a valid limit value" limit))))
              (columns (param columns :else "*"))
  +           (separator (let ((separator (param separator :else "TAB")))
  +                        (cond ((equal separator "TAB") #?"\t")
  +                              ((equal separator "NUL") #?"\0")
  +                              (t separator))))
              (output-path (param output
                                  :then (parse-namestring output)))
              (incremental (param incremental
  
positive.code:             :output-path output-path
              :read-receipt-path read-receipt-path
              :write-receipt-path write-receipt-path
              :progress progress))))
  
  (defun dump-resultset (stream resultset incremental comparator progress)
    (let ((last-value
           (iter (for row = (next-row resultset))
                 (for i from 1)
                 (while row)
                 (format stream #?"~{~A~^\t~}~%" row)
                 (when (and progress
                            (= (mod i progress) 0))
                   (format *error-output* ".")
  
negative.code:       (bind ((config (make-config options))
               ((:plist uri table columns limit incremental last-value
                        output-path read-receipt-path write-receipt-path
                        progress separator)
                (prepare-parameters config))
               (receipt (when read-receipt-path
                          (read-receipt read-receipt-path))))
  