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:     "George W. Bush" "Barack Obama")
    "A list of presidents from George Washington until Barack Obama")
  
  #+off
  (deftest optimize-performance-test (serialization-tests)
    (let ((population (make-population))
          (count 0))
  
negative.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))
  