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:       (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))
  
negative.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))
  