anchor.diff:    (buy-car (buy-car-request => buy-car-response)
              :options (:deadline 1.0)))
   
  +#+off
   (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))
  
positive.code:            (result (time (deserialize-object-from-bytes (type-of population) buffer))))
        (assert-true (proto:proto-equal population result :exact t)))))
  
  (deftest performance-test (serialization-tests)
    (let ((population (make-population))
          (count 0))
  
negative.code:       (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))
  