anchor.diff:      (("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)
  
positive.code:                                             :limit limit
                                              :incremental incremental
                                              :last-value last-value)))
                (when receipt-path
                  (write-receipt receipt-path new-receipt)))))))))
  
  (defun usage ()
    (print-usage-summary "Parameters:~%~@{~A~%~}~%" +options+))
  
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
  