anchor.diff:  
   (defun expect-same (msg)
     (assert-true (msg-equalp msg (proto:deserialize-object-from-bytes
  -				'msg (proto:serialize-object-to-bytes msg)))))
  +                                 'msg (proto:serialize-object-to-bytes msg)))))
   
   (deftest unsigned-positive (wire-tests)
     ;; Small encoding for positive numbers
     (let ((msg
  -	  (make-msg :u 10)))
  +          (make-msg :u 10)))
       (expect-bytes (list +TAG-U+ 10) (proto:serialize-object-to-bytes msg))
       (expect-same msg)))
   
  
positive.code:                 #: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)
  
negative.code:     (unless (closer-mop:class-finalized-p class)
        (closer-mop:finalize-inheritance class))
      (let* ((slot
               (find '%u (closer-mop:class-slots class) :key 'closer-mop:slot-definition-name))
             (type (closer-mop:slot-definition-type slot)))
        (assert-true (eq type '(or null uint64)))
        (assert-true (not (typep -10 type)))
  