@@ -41,7 +41,7 @@

 (defun obj-to-type (obj)

   (etypecase obj

-    (fwoar.cl-git.commit::git-commit :commit)

+    (git-commit :commit)

     (git-tree :tree)

     (blob :blob)))

@@ -9,13 +9,13 @@

 (defpackage :fwoar.cl-git.commit

   (:use :cl :fwoar.cl-git.protocol)

-  (:export #:git-commit))

+  (:export #:git-commit #:metadata #:data))

 (defpackage :fwoar.cl-git

   (:use :cl :fwoar.cl-git.protocol)

   (:import-from :fwoar.cl-git.commit #:git-commit)

   (:export #:ensure-ref #:repository #:*want-delta* #:git-object

-           #:hash #:*git-encoding* #:git-commit))

+           #:hash #:*git-encoding* #:git-commit #:ref))

 (defpackage :fwoar.cl-git.types

   (:use :cl )

@@ -29,5 +29,5 @@

   (:use)

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

            #:with-repository #:current-repository #:show-repository #:git

-           #:tree #:contents #:component #:rev-list #:repository

-           #:parents #:filter-tree))

+           #:tree #:contents #:component #:rev-list #:repository #:parents

+           #:filter-tree))

@@ -26,7 +26,7 @@

                   :co.fwoar.cl-git

                   "tests/sample-git-objects/hello-world-commit.git-obj")

                  (make-instance 'fake-ref :hash "the-hash"))))

-    (5am:is (typep object 'fwoar.cl-git.commit::git-commit))

+    (5am:is (typep object 'fwoar.cl-git:git-commit))

     (5am:is (equal "hello, git!

 "

                    (component :message object)))

@@ -91,7 +91,7 @@

                         (fiveam:is (equal *fake-repo* (fwoar.cl-git::ref-repo ref)))

                         (fwoar.cl-git::extract-object ref))))

-    (5am:is (typep object 'fwoar.cl-git.commit::git-commit))

+    (5am:is (typep object 'fwoar.cl-git:git-commit))

     (5am:is (equal "hello, git!

 "

                    (component :message object)))