anchor.diff:                  #:proto-output-type
                   #:proto-extended-fields
                   #:proto-class)
  +  (:export #:make-msg
  +	   #:msg-%%is-set
  +	   #:msg.clear-u
  +	   #:msg.clear-s
  +	   #:msg.has-u
  +	   #:msg.u
  +	   #:msg.has-i
  +	   #:msg.s
  +	   #:msg.clear-i
  +	   #:msg.has-s
  +	   #:msg.I)
     (:export :run))
   
   (in-package #:cl-protobufs.test.zigzag-test)
  
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: 
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (proto:define-schema 'zigzag-test
      :package 'proto-test)
  
    (proto:define-message msg ()
      (s :index 1 :type (or null proto:sint64) :label (:optional))
  