gistfile1.txt

define method initialize(opts :: <git-repository-init-options*>,
                         #key version = 1,
                              flags = #f,
                              mode = #f,
                              working-directory = #f,
                              description = #f,
                              ...
                              origin-url = #f)
  if (version)
    git-repository-init-options$version(opts) := version;
  end;
  ...
  if (working-directory)
    git-repository-init-options$workdir-path(opts) := working-directory;
  end;
  ...
end;

libgit2.intr

define git-options <git-repository-init-options*>
  version = 1,
  flags,
  mode,
  workdir-path => working-directory,
  description,
  template-path,
  initial-head,
  origin-url
end git-options;