(in-package :fwoar.cl-git)
 

 (defclass+ blob (git-object)

   ((%data :reader data :initarg :data)))
 

 (defgeneric -extract-object-of-type (type s repository &key  &allow-other-keys)
   (:method :around (type s repository &key hash)
     (let ((result (call-next-method)))
       (prog1 result
         (when (typep result 'git-object)
           (setf (hash result) hash)))))
 

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

     (blob s))

 
   (:method ((type (eql :tag)) s repository &key)
     s))
 
 (defgeneric component (component object)
   (:argument-precedence-order object component)
   (:method (component (object git-ref))
     (component component (extract-object object)))
   (:method ((component sequence) object)
     (reduce (lambda (cur next)
               (component next cur))
             component
             :initial-value object)))