feat: move blob to its own file and package

blob.lisp

@@ -0,0 +1,10 @@
+(in-package :fwoar.cl-git.blob)
+
+(fwoar.cl-git.utils:defclass+ blob (fwoar.cl-git::git-object)
+  ((%data :reader data :initarg :data)))
+
+(defmethod -extract-object-of-type ((type (eql :blob)) s repository &key)
+  (blob s))
+
+(defcomponents blob (object _)
+  ((eql :data) (data object)))

model.lisp

@@ -126,8 +126,3 @@
 
 (defmethod component ((component (eql :hash)) (object git-object))
   (hash object))
-
-(fwoar.cl-git.utils:defclass+ blob (fwoar.cl-git::git-object)
-  ((%data :reader data :initarg :data)))
-(defmethod -extract-object-of-type ((type (eql :blob)) s repository &key)
-  (blob s))

package.lisp

@@ -7,6 +7,10 @@
   (:use :cl)
   (:export #:-extract-object-of-type #:component #:defcomponents))
 
+(defpackage :fwoar.cl-git.blob
+  (:use :cl :fwoar.cl-git.protocol)
+  (:export #:blob))
+
 (defpackage :fwoar.cl-git.commit
   (:use :cl :fwoar.cl-git.protocol)
   (:export #:git-commit #:metadata #:data))

tree.lisp

@@ -50,10 +50,12 @@
 
 (defmethod component ((component (eql :entries)) (object git-tree))
   (entries object))
+
 (defmethod component ((component string) (object git-tree))
   (car (remove component (entries object)
                :test-not #'equal
                :key 'te-name)))
+
 (defmethod component ((component pathname) (object git-tree))
   (remove-if-not (lambda (it)
                    (pathname-match-p it component))