anchor.diff:      (("database") "DATABASE" "Database connection")
       (("table") "TABLE" "Table name")
       (("columns") "COL1,COL2,...,COLN" "A comma-separated column list")
  +    (("separator") "SYMBOL" "Seprarate columns using SYMBOL. Default: TAB.")
       (("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.")
  
positive.code:                   by (lambda (a b) (format nil "~A, ~A" a b)))))
  
  (defun dump-table (conn table data-stream
                     &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)
  
negative.code:                                      resultset
                                       idx
                                       comparator
                                       progress
                                       separator)))
      (list :table table
            :columns columns
            :incremental incremental
  