anchor.diff:                                              :limit limit
                                               :incremental incremental
                                               :last-value last-value)))
  -              (when receipt-path
  -                (write-receipt receipt-path new-receipt)))))))))
  +              (when write-receipt-path
  +                (write-receipt write-receipt-path new-receipt)))))))))
   
   (defun usage ()
     (print-usage-summary "Parameters:~%~@{~A~%~}~%" +options+))
  
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:     (if (getconf options :help)
        (usage)
        (bind ((config (make-config options))
               ((:plist uri table columns limit incremental last-value
                        output-path read-receipt-path write-receipt-path)
                (prepare-parameters config))
               (receipt (when read-receipt-path
                          (read-receipt read-receipt-path))))
          (with-connection (conn uri)
            (with-open-stream (out (if output-path
                                       (open output-path
  