anchor.diff:      (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))
  +	     (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)))
         (assert-true (typep 10 type)))))
   
   (deftest signed-positive ()
  -    ;; Small encoding for positive numbers
  +  ;; Small encoding for positive numbers
     (let ((msg (make-msg :s 10)))
       (expect-bytes (list +TAG-S+ (ash 10 1)) (proto:serialize-object-to-bytes msg))
       (expect-same msg)))
  
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))
  