(in-package :fwoar.cl-git)
 
 (defvar *git-repository* nil
   "The git repository path for porcelain commands to operate on.")
 (defvar *git-encoding* :utf-8
   "The encoding to use when parsing git objects")
 
 (defun git-show (object)

   (elt (sp-ob
         (babel:octets-to-string
          (extract-object (repository *git-repository*)
                          object)
          :encoding *git-encoding*))
        1))