anchor.diff:    (remove-leading-slashes (:name p) :arg.) (surrounding (:name C) :upcase :arg.))
   
   (define-git-wrapper git-apply
  -  &optional patch
  +  &optional patches
     &key stat numstat summary check index cached 3way (build-fake-ancestor :arg=)
     recursive reject (machine-readable (:name z) :flag)
     (remove-leading-slashes (:name p) :arg.) (surrounding (:name C) :upcase :arg.)
  
positive.code:   &key (tool :arg=) tool-help (prompt :bool))
  
  (define-git-wrapper git-mv
    source destination
    &key fodce (skip-errors (:name k) :flag) dry-run verbose)
  
  (define-git-wrapper git-pull
    &optional repository refspec
    &key quiet verbose (recurse-submodules :bool (:member :yes :on-demand :no))
    (commit :bool) (edit :bool) (ff :bool) ff-only (log :bool :arg=) (stat :bool)
    (squash :bool) (strategy :arg=) (strategy-option :arg=) (verify-signatures :bool)
  
negative.code:   &key no-checkout)
  
  (define-git-wrapper git-blame
    (file :--)
    &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)
  