anchor.diff:              :last-value last-value
               :limit limit
               :output-path output-path
  -            :receipt-path receipt-path))))
  +            :read-receipt-path read-receipt-path
  +            :write-receipt-path write-receipt-path))))
   
   (defun dump-resultset (stream resultset incremental comparator)
     (iter (for row = (next-row resultset))
  
positive.code:     (("password") "PASSWORD" "Log in to DATABASE using PASSWORD")
      (("output") "PATH" "Store results to PATH. Default: stdout")
      (("receipt") "PATH" "Read and write receipt file at PATH.")
      (("config") "PATH" "Read config from PATH.")))
  
  (defun parse-options (argv)
  
negative.code:            (last-value (param last-value
                                :then (unless incremental
                                        (error "Incremental is not specified"))))
             (read-receipt-path (param receipt :then (parse-namestring receipt)))
             (write-receipt-path (or (param write-receipt
                                            :then (parse-namestring write-receipt))
                                     read-receipt-path))
             (username (param username))
             (password (param password))
             (uri (or (parse-database-uri database
  