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:   (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)
  (define-git-wrapper git-rm)
  (define-git-wrapper git-send-email)
  (define-git-wrapper git-shortlog)
  (define-git-wrapper git-show)
  
negative.code: (define-git-wrapper git-filter-branch)
  (define-git-wrapper git-for-each-ref)
  (define-git-wrapper git-format-patch)
  
  (define-git-wrapper git-fsck
    &optional objects
    &key unreacakble (dangling :bool) root tags cache no-reflogs full strict verbose
    lost-found (progress :bool))
  
  (define-git-wrapper git-gc
    &key aggressive auto (prune :arg= :bool) quiet force)
  
  (define-git-wrapper git-grep
    &optional tree (paths :--)
    &key cached no-index untracked (exclude-standard :bool) text (textconv :bool)
    ignore-case (no-binary (:name I) :upcase :flag) (max-depth :arg) word-regexp
    invert-match (suppress-filename (:name h) :flag) full-name extended-regexp
    basic-regexp perl-regexp fixed-strings line-number name-only null count
    (color :bool :arg=) break heading show-function (context :arg)
    (after-context :arg) (before-context :arg) function-context (file (:name f) :arg)
    (pattern (:name e) :arg) and or not all-match quiet)
  
  (define-git-wrapper git-hash-object
    (files :--)
    &key (type (:name t) :arg) (write (:name w) :flag) stdin stdin-paths
    (path :arg=) no-filters literally)
  
  (define-git-wrapper git-help
    command-or-guide
    &key all guides info man web)
  
  (define-git-wrapper git-init
    &optional directory
    &key quiet bare (template :arg=) (separate-git-dir :arg=)
    (shared :arg= (:member :false :true :umask :group :all :world :everybody)))
  
  (define-git-wrapper git-instaweb
    &key local (httpd :arg=) (module-path :arg=) (port :arg=) (browser :arg=)
    start stop restart)
  
  (define-git-wrapper git-log
    &optional revision-range (paths :--)
  