anchor.diff:                                              :incremental incremental
                                               :last-value last-value
                                               :progress progress
  -                                            :separator separator)))
  +                                            :separator separator
  +                                            :escape escape)))
                 (when write-receipt-path
                   (write-receipt write-receipt-path new-receipt)))))))))
   
  
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:       (bind ((config (make-config options))
               ((:plist uri table columns limit incremental last-value
                        output-path read-receipt-path write-receipt-path
                        progress separator escape)
                (prepare-parameters config))
               (receipt (when read-receipt-path
                          (read-receipt read-receipt-path))))
  