@@ -15,8 +15,11 @@

   ())

 (defgeneric object-type->sym (object-type)

-  (:method ((o-t symbol))

-    o-t))

+  (:documentation "Canonicalizes different representations of an

+  object type to their symbol representation."))

+

+(defmethod object-type->sym ((o-t symbol))

+    o-t)

 (defmethod object-type->sym ((object-type number))

   (ecase object-type

@@ -1,7 +1,10 @@

 (in-package :fwoar.cl-git)

-(defvar *git-repository* nil

-  "The git repository path for porcelain commands to operate on.")

+;; TODO: Update the code so this uses an object instead of a path.

+(defvar *git-repository*)

+(setf (documentation '*git-repository* 'variable)

+      "The git repository path for porcelain commands to operate on.")

+

 (defvar *git-encoding* :utf-8

   "The encoding to use when parsing git objects")

@@ -7,6 +7,7 @@

                            (truename repo)))))

 (defun ref (repo id)

+  "Given a REPOsitory and a ref ID return the ref-id object."

   (let ((repo-root (root-of repo)))

     (or (alexandria:when-let ((object-file (loose-object repo id)))

           (make-instance 'loose-ref