anchor.diff:  (defconstant +TAG-I+ (proto-impl::make-tag :int32 3))
   
   
  -(defconstant +equal-loop-list+ '(%s %u %i) "Fields to iterate over.")
  +(define-constant +equal-loop-list+ '(%s %u %i)
  +  :test #'equal
  +  :documentation "Fields to iterate over.")
   
   (defun msg-equalp (x y)
     (loop for slot in +equal-loop-list+
  
positive.code: 
  (defun expect-same (msg)
    (assert-true (msg-equalp msg (proto:deserialize-object-from-bytes
                             'msg (proto:serialize-object-to-bytes msg)))))
  
  (deftest unsigned-positive ()
      ;; Small encoding for positive numbers
    (let ((msg
           (make-msg :u 10)))
      (expect-bytes (list +TAG-U+ 10) (proto:serialize-object-to-bytes msg))
      (expect-same msg)))
  
  
negative.code: ;;; https://opensource.org/licenses/MIT.
  
  (defpackage #:cl-protobufs.test.zigzag-test
    (:use
     #:cl
     #:clunit
     #:cl-protobufs
     #:alexandria)
    (:import-from #:proto-impl
                  #:proto-name
                  #:proto-fields
  