anchor.diff:        (assert-true (equalp tser4 #(#x1A #x09 #x12 #x07 #x74 #x65 #x73 #x74 #x69 #x6E #x67)))
         (assert-true (equalp tser5 *tser5-bytes*))
         (assert-true (equalp tser6 *tser6-bytes*))
  +      (assert-true (equalp tser7 *tser7-bytes*))
         (macrolet ((slots-equalp (obj1 obj2 &rest slots)
                      (proto-impl::with-gensyms (vobj1 vobj2)
                        (proto-impl::with-collectors ((forms collect-form))
  
positive.code:   (buy-car (buy-car-request => buy-car-response)
             :options (:deadline 1.0)))
  
  (deftest extension-serialization (serialization-tests)
    (let* ((color1 (proto-impl:make-object auto-color :r-value 100 :g-value 0 :b-value 100))
           (car1   (proto-impl:make-object automobile :model "Audi" :color color1))
  
negative.code:                                    (parse-text-format 'basic-test6 :stream s))))
                          strval))))))
  
  #+off
  (deftest serialization-integrity (serialization-tests)
    (flet ((do-test (message)
             (let* ((type (type-of message))
  