anchor.diff:        (bind ((config (make-config options))
                ((:plist uri table columns limit incremental last-value
                         output-path read-receipt-path write-receipt-path
  -                      progress)
  +                      progress separator)
                 (prepare-parameters config))
                (receipt (when read-receipt-path
                           (read-receipt read-receipt-path))))
  
positive.code:     (("database") "DATABASE" "Database connection")
      (("table") "TABLE" "Table name")
      (("columns") "COL1,COL2,...,COLN" "A comma-separated column list")
      (("incremental") "COLUMN" "Do an incremental update using this column")
      (("last-value") "VALUE" "The last seen value in the incremental column")
      (("limit") "N" "Limit the results to only N first rows.")
  
negative.code:             :output-path output-path
              :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)
    (let ((last-value
           (iter (for row = (next-row resultset))
                 (for i from 1)
                 (while row)
                 (format stream "~A" (car row))
                 (dolist (col (cdr row))
                   (format stream "~A~A" separator col))
                 (format stream "~%")
                 (when (and progress
                            (= (mod i progress) 0))
                   (format *error-output* ".")
  