(in-package :fwoar.cl-git)
 
 (fw.lu:defun-ct batch-4 (bytes)
   (mapcar 'fwoar.bin-parser:be->int
           (serapeum:batches bytes 4)))
 
 (fw.lu:defun-ct batch-20 (bytes)
   (serapeum:batches bytes 20))
 
 (defmacro sym->plist (&rest syms)
   `(list ,@(loop for sym in syms
                  append (list (alexandria:make-keyword sym)
                               sym))))
 
 (defmacro inspect- (s form)
   `(let ((result ,form))
      (format ,s "~&~s (~{~s~^ ~})~%~4t~s~%"
              ',form
              ,(typecase form
                 (list `(list ',(car form) ,@(cdr form)))
                 (t `(list ,form)))
              result)
      result))
 
 (defun inspect-* (fn)
   (lambda (&rest args)
     (declare (dynamic-extent args))
     (inspect- *trace-output*
               (apply fn args))))
 
 (defun partition (char string &key from-end)
   (let ((pos (position char string :from-end from-end)))
     (if pos
 	      (list (subseq string 0 pos)
 	            (subseq string (1+ pos)))
 	      (list string
 	            nil))))
 
 (defun partition-subseq (subseq string &key from-end)
   (let ((pos (search subseq string :from-end from-end)))
     (if pos
 	      (list (subseq string 0 pos)
 	            (subseq string (+ (length subseq) pos)))
 	      (list string
 	            nil))))
 
 (serapeum:defalias ->sha-string
   (data-lens:<>1 (data-lens:over 'fwoar.bin-parser:byte-array-to-hex-string)
                  'batch-20))

 
 (defun read-bytes (count format stream)
   (let ((seq (make-array count)))
     (read-sequence seq stream)
     (funcall format
              seq)))
 
 (defun sp-ob (ob-string)
   (partition #\null
              ob-string))
 
 (defun split-object (object-data)
   (destructuring-bind (head tail)
       (partition 0
                  object-data)
     (destructuring-bind (type length)
         (partition #\space
                    (babel:octets-to-string head :encoding :latin1))
       (values tail
               (list type
                     (parse-integer length))))))
 
 (defun parse-commit (commit)
   (destructuring-bind (metadata message)
       (partition-subseq #(#\newline #\newline)
                         commit #+(or)(babel:octets-to-string commit :encoding :latin1))
     (values message
             (fwoar.string-utils:split #\newline metadata))))