@@ -14,11 +14,9 @@

 (defpackage :fwoar.cl-git.pack

   (:use :cl)

   (:export #:pack #:pack-file #:index-file #:idx-toc

-           #:with-pack-streams

-           #:seek-to-object-in-pack

-           #:packed-ref

-           #:packed-ref-pack

-           #:packed-ref-offset))

+           #:with-pack-streams #:seek-to-object-in-pack #:packed-ref

+           #:packed-ref-pack #:packed-ref-offset #:extract-object #:git-ref

+           #:loose-ref))

 (defpackage :fwoar.cl-git

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

@@ -29,8 +27,7 @@

 (defpackage :fwoar.cl-git.types

   (:use :cl )

-  (:export

-   #:octet))

+  (:export #:octet))

 (defpackage :cl-git-user

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

@@ -4,8 +4,8 @@

   (:method :around (type s repository &key hash)

     (let ((result (call-next-method)))

       (prog1 result

-        (when (typep result 'fwoar.cl-git::git-object)

-          (setf (fwoar.cl-git::hash result) hash)))))

+        (when (typep result 'fwoar.cl-git:git-object)

+          (setf (fwoar.cl-git:hash result) hash)))))

   (:method ((type (eql :tag)) s repository &key)

@@ -13,8 +13,8 @@

 (defgeneric component (component object)

   (:argument-precedence-order object component)

-  (:method (component (object fwoar.cl-git::git-ref))

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

+  (:method (component (object fwoar.cl-git:git-ref))

+    (component component (fwoar.cl-git:extract-object object)))

   (:method ((component sequence) object)

     (reduce (lambda (cur next)

               (component next cur))