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

           (read-object-from-pack p (repository pack)))))))

 (defun extract-loose-object (repo id)

-  (with-open-file (s (object repo id)

+  (with-open-file (s (loose-object repo id)

                      :element-type '(unsigned-byte 8))

     (alexandria:when-let ((result (chipz:decompress nil (chipz:make-dstate 'chipz:zlib)

                                                     s)))

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

                                 repo)))))

 (defun extract-object (repo id)

-  (if (object repo id)

+  (if (loose-object-p repo id)

       (extract-loose-object repo id)

       (data-lens.lenses:view *object-data-lens*

                              (multiple-value-call 'extract-object-from-pack 

@@ -16,19 +16,23 @@

 (defun turn-read-object-to-string (object)

   (data-lens.lenses:over *object-data-lens* 'babel:octets-to-string object))

-(defgeneric object (repository id)

+(defgeneric loose-object (repository id)

   (:method ((repository string) id)

     (when (probe-file (merge-pathnames ".git" repository))

-      (object (repository repository) id)))

+      (loose-object (repository repository) id)))

   (:method ((repository pathname) id)

     (when (probe-file (merge-pathnames ".git" repository))

-      (object (repository repository) id)))

+      (loose-object (repository repository) id)))

   (:method ((repository repository) id)

     (car

      (uiop:directory*

       (merge-pathnames (loose-object-path (serapeum:concat id "*"))

                        (root repository))))))

+(defun loose-object-p (repository id)

+  "Is ID an ID of a loose object?"

+  (loose-object repository id))

+

 (defun fanout-table (s)

   (coerce (alexandria:assoc-value

            (fwoar.bin-parser:extract '((head 4)

@@ -30,8 +30,8 @@

                       (nth-value 1 (parse-commit

                                     (split-object

                                      (chipz:decompress nil (chipz:make-dstate 'chipz:zlib)

-                                                       (object repository

-                                                               commit))))))))

+                                                       (loose-object repository

+                                                                     commit))))))))

 (defmethod cl-dot:graph-object-node ((graph git-graph) (commit string))

   (alexandria:ensure-gethash commit