anchor.diff:           (test6  (proto-impl:make-object basic-test6
                                            :intvals '(2 3 5 7)
                                            :strvals '("two" "three" "five" "seven")
  -                                         :recvals (list test2 test2b))))
  +                                         :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)))
  +          (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)))
  
positive.code:                                    (parse-text-format 'basic-test6 :stream s))))
                          strval))))))
  
  (deftest serialization-integrity (serialization-tests)
    (flet ((do-test (message)
             (let* ((type (type-of message))
  
negative.code:       (do-test (proto-impl:make-object outer :simple simple-1))
        (do-test (proto-impl:make-object outer :simple simple-2)))))
  
  #+off
  (deftest empty-message-serialization (serialization-tests)
    (let ((speed0 (proto-impl:make-object speed-empty))
          (speed1 (proto-impl:make-object speed-optional))
  