@@ -9,4 +9,4 @@

 (defpackage :git

   (:use)

-  (:export #:show #:branch #:branches #:commit-parents #:in-repository))

\ No newline at end of file

+  (:export #:show #:branch #:branches #:commit-parents #:in-repository #:current-repository))

@@ -9,6 +9,9 @@

   (setf *git-repository*

         (truename root)))

+(defun git:show-repository ()

+  *git-repository*)

+

 (defun git:show (object)

   (babel:octets-to-string

    (extract-object (repository *git-repository*)