anchor.diff:                                     (parse-text-format 'basic-test6 :stream s))))
                           strval))))))
   
  -#+off
   (deftest serialization-integrity (serialization-tests)
     (flet ((do-test (message)
              (let* ((type (type-of message))
  
positive.code:   (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))
  
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))
  