anchor.diff:             (last-value (param last-value
                                 :then (unless incremental
                                         (error "Incremental is not specified"))))
  -           (receipt-path (param receipt :then (parse-namestring receipt)))
  +           (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
  
positive.code:     (if (getconf options :help)
        (usage)
        (bind ((config (make-config options))
               ((:plist uri table columns limit incremental
                        last-value output-path
                        receipt-path) (prepare-parameters config))
               (receipt (when receipt-path (read-receipt receipt-path))))
          (with-connection (conn uri)
            (with-open-stream (out (if output-path
                                       (open output-path
  
negative.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.")
      (("write-receipt") "PATH" "Override the receipt destination specified by --receipt.")
      (("config") "PATH" "Read config from PATH.")))
  
  (defun parse-options (argv)
  