anchor.diff:             (result (time (deserialize-object-from-bytes (type-of population) buffer))))
         (assert-true (proto:proto-equal population result :exact t)))))
   
  +#+off
   (deftest performance-test (serialization-tests)
     (let ((population (make-population))
           (count 0))
  
positive.code:          (test6  (proto-impl:make-object basic-test6
                                           :intvals '(2 3 5 7)
                                           :strvals '("two" "three" "five" "seven")
                                           :recvals (list test2 test2b))))
      (let ((tser1  (serialize-object-to-bytes test1 'basic-test1))
            (tser1b (serialize-object-to-bytes test1b 'basic-test1))
            (tser2  (serialize-object-to-bytes test2 'basic-test2))
            (tser3  (serialize-object-to-bytes test3 'basic-test3))
            (tser4  (serialize-object-to-bytes test4 'basic-test4))
            (tser5  (serialize-object-to-bytes test5 'basic-test5))
            (tser6  (serialize-object-to-bytes test6 'basic-test6)))
        (assert-true (equalp tser1 #(#x08 #x96 #x01)))
        (assert-true (equalp tser1b #(#x08 #xEA #xFE #xFF #xFF #x0F)))
        (assert-true (equalp tser2 #(#x12 #x07 #x74 #x65 #x73 #x74 #x69 #x6E #x67)))
  
negative.code:          (test6  (proto-impl:make-object basic-test6
                                           :intvals '(2 3 5 7)
                                           :strvals '("two" "three" "five" "seven")
                                           :recvals (list test2 test2b)))
           (group1 (proto-impl:make-object subgroups
                                           :strval "g1"
                                           :intvals '(1 1 2 3)))
           (group2 (proto-impl:make-object subgroups
                                           :strval "g2"))
           (test7  (proto-impl:make-object basic-test7
                                          :strval "seven"
                                          :intvals '(2 27)
                                          :subgroups (list group1  group2))))
      (let ((tser1  (serialize-object-to-bytes test1 'basic-test1))
            (tser1b (serialize-object-to-bytes test1b 'basic-test1))
            (tser2  (serialize-object-to-bytes test2 'basic-test2))
            (tser3  (serialize-object-to-bytes test3 'basic-test3))
            (tser4  (serialize-object-to-bytes test4 'basic-test4))
            (tser5  (serialize-object-to-bytes test5 'basic-test5))
            (tser6  (serialize-object-to-bytes test6 'basic-test6))
            (tser7  (serialize-object-to-bytes test7 'basic-test7)))
        (assert-true (equalp tser1 #(#x08 #x96 #x01)))
        (assert-true (equalp tser1b #(#x08 #xEA #xFE #xFF #xFF #x0F)))
        (assert-true (equalp tser2 #(#x12 #x07 #x74 #x65 #x73 #x74 #x69 #x6E #x67)))
  