anchor.diff:                    by (lambda (a b) (format nil "~A, ~A" a b)))))
   
   (defun dump-table (conn table data-stream
  -                   &key (columns "*") limit incremental last-value)
  +                   &key (columns "*") limit incremental last-value progress)
     (bind ((limit-spec (if limit (format nil "LIMIT ~D" limit) ""))
            (where-spec (if (and incremental last-value)
                            (format nil "WHERE ~A > ?" incremental)
  
positive.code:                                             :limit limit
                                              :columns columns
                                              :incremental incremental
                                              :last-value last-value)))
                (when write-receipt-path
                  (write-receipt write-receipt-path new-receipt)))))))))
  
  
negative.code:                                :then (parse-namestring output)))
             (incremental (param incremental
                                 :then (string-downcase incremental)))
             (progress (param progress
                              :then (parse-integer progress :junk-allowed t)))
             (last-value (param last-value
                                :then (unless incremental
                                        (error "Incremental is not specified"))))
  