@@ -51,7 +51,7 @@

          (o (fwoar.cl-git.pack::extract-object-at-pos

              pack

              offset

-             (make-instance 'fwoar.cl-git:git-ref

+             (make-instance 'fwoar.cl-git.ref:ref

                             :hash "00000000"

                             :repo nil)))

          (obj (serapeum:assocdr :object-data o))

@@ -84,7 +84,7 @@

              (o (fwoar.cl-git.pack:extract-object-at-pos

                  pack

                  offset

-                 (make-instance 'fwoar.cl-git:git-ref

+                 (make-instance 'fwoar.cl-git.ref:ref

                                 :hash "00000000"

                                 :repo nil)))

              (obj (serapeum:assocdr :object-data o)))

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

 (defun pack (index pack repository)

   (fw.lu:new 'pack index pack repository))

-(defclass packed-ref (fwoar.cl-git::git-ref)

+(defclass packed-ref (fwoar.cl-git.ref:ref)

   ((%pack :initarg :pack :reader packed-ref-pack)

    (%offset :initarg :offset :reader packed-ref-offset)))

@@ -20,21 +20,21 @@

   (: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 #:extract-object #:git-ref

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

            #:loose-ref #:extract-object-at-pos #:raw-object-for-ref))

 (defpackage :fwoar.cl-git.ref

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

-  (:export #:git-ref #:loose-ref #:ref-repo #:ref-hash #:loose-ref-file))

+  (:export #:ref #:loose-ref #:ref-repo #:ref-hash #:loose-ref-file))

 (defpackage :fwoar.cl-git

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

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

   (:import-from :fwoar.cl-git.pack #:packed-ref)

-  (:import-from :fwoar.cl-git.ref #:git-ref #:loose-ref #:ref-hash #:ref-repo)

+  (:import-from :fwoar.cl-git.ref #:loose-ref #:ref-hash #:ref-repo)

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

            #:*git-encoding* #:git-commit #:ref #:component #:*git-repository*

-           #:git-ref #:extract-object #:git-tree #:blob))

+           #:extract-object #:git-tree #:blob))

 (defpackage :fwoar.cl-git.types

   (:use :cl )

@@ -13,7 +13,7 @@

 (defgeneric component (component object)

   (:argument-precedence-order object component)

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

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

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

   (:method ((component sequence) object)

     (reduce (lambda (cur next)

@@ -1,12 +1,12 @@

 (in-package :fwoar.cl-git.ref)

-(defclass git-ref ()

+(defclass ref ()

   ((%repo :initarg :repo :reader ref-repo)

    (%hash :initarg :hash :reader ref-hash)))

-(defclass loose-ref (git-ref)

+(defclass loose-ref (ref)

   ((%file :initarg :file :reader loose-ref-file)))

-(defmethod print-object ((obj git-ref) s)

+(defmethod print-object ((obj ref) s)

   (print-unreadable-object (obj s :type t :identity t)

     (format s "~a of ~a"

             (subseq (ref-hash obj) 0 6)

@@ -16,5 +16,5 @@

                                      (root-of (ref-repo obj))

                                      "~/"))))

-(defmethod fwoar.cl-git:component ((component (eql :hash)) (object git-ref))

+(defmethod fwoar.cl-git:component ((component (eql :hash)) (object ref))

   (ref-hash object))

@@ -9,7 +9,7 @@

   :in :fwoar.cl-git)

 (fiveam:in-suite :fwoar.cl-git.git-objects)

-(defclass fake-ref (fwoar.cl-git:git-ref)

+(defclass fake-ref (fwoar.cl-git.ref:ref)

   ())

 (defun fake-ref (repo hash)

   (fwoar.lisputils:new 'fake-ref repo hash))