anchor.diff:        (bind ((config (make-config options))
                ((:plist uri table columns limit incremental last-value
                         output-path read-receipt-path write-receipt-path
  -                      progress separator)
  +                      progress separator escape)
                 (prepare-parameters config))
                (receipt (when read-receipt-path
                           (read-receipt read-receipt-path))))
  
positive.code:                                             :incremental incremental
                                              :last-value last-value
                                              :progress progress
                                              :separator separator)))
                (when write-receipt-path
                  (write-receipt write-receipt-path new-receipt)))))))))
  
  
negative.code: 
  (defun dump-table (conn table data-stream
                     &key (columns "*") limit incremental last-value progress
                          separator escape)
    (bind ((limit-spec (if limit (format nil "LIMIT ~D" limit) ""))
           (where-spec (if (and incremental last-value)
                           (format nil "WHERE ~A > ?" incremental)
  