anchor.diff:    &key no-checkout)
   
   (define-git-wrapper git-blame
  -  (file :--)
  +  (files :--)
     &key (blank (:name b) :flag) root show-stats (range (:name L) :upcase (:map ","))
     (long (:name l) :flag) (timestamp (:name t) :flag) (revisions (:name S) :upcase :arg)
     reverse porcelain line-porcelain incremental (encoding :arg=) (contents :arg)
  
positive.code:   (full-merge-diff (:name m) :flag) (show-recursive-diff (:name r) :flag)
    (show-tree-diff (:name t) :flag))
  
  (define-git-wrapper git-ls-files)
  (define-git-wrapper git-merge)
  (define-git-wrapper git-merge-base)
  (define-git-wrapper git-mergetool)
  (define-git-wrapper git-mv)
  
  (define-git-wrapper git-pull
    &optional repository refspec
  
negative.code:   (resolve-git-dir :arg) (git-path :arg) show-cdup show-prefix show-toplevel
    shared-index-path (since :arg=) (until :arg=))
  
  (define-git-wrapper git-revert
    &optional commit
    &key (edit :bool) (mainline :arg) no-commit (gpg-sign :flag :arg=) signoff
    (strategy :arg=) (strategy-option :arg=) continue quit abort)
  
  (define-git-wrapper git-rm
    (files :--)
    &key force dry-run (recursive (:name r) :flag) cached ignore-unmatch quiet)
  
  (define-git-wrapper git-send-email)
  (define-git-wrapper git-shortlog)
  (define-git-wrapper git-show)
  