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 no-checkout)
  
  (define-git-wrapper git-blame
    (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)
  
negative.code:   (src-prefix :arg=) (dst-prefix :arg=) no-prefix)
  
  (define-git-wrapper git-show-ref
    &optional (patterns :--)
    &key head tags heads dereference (hash :flag :arg=) verify (abbrev :arg=) quiet
    (exclude-existing :flag :arg=))
  
  