anchor.diff:             :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))
  -         (rqst1  (proto-impl:make-object buy-car-request :auto car1))
  -         (color2 (proto-impl:make-object auto-color :r-value 100 :g-value 0 :b-value 100))
  -         (car2   (proto-impl:make-object automobile :model "Audi" :color color2))
  -         (rqst2  (proto-impl:make-object buy-car-request :auto car2)))
  +  (let* ((color1 (make-auto-color :r-value 100 :g-value 0 :b-value 100))
  +         (car1   (make-automobile :model "Audi" :color color1))
  +         (rqst1  (make-buy-car-request :auto car1))
  +         (color2 (make-auto-color :r-value 100 :g-value 0 :b-value 100))
  +         (car2   (make-automobile :model "Audi" :color color2))
  +         (rqst2  (make-buy-car-request :auto car2)))
       (setf (paint-type color2) :metallic)
       (let ((ser1 (serialize-object-to-bytes rqst1 'buy-car-request))
             (ser2 (serialize-object-to-bytes rqst2 'buy-car-request)))
  
positive.code:         (eval (proto-impl:generate-serializer message))
          (when (not (equal class 'basic-test7))
            (eval (proto-impl:generate-deserializer message))))))
    (let* ((test1  (proto-impl:make-object basic-test1 :intval 150))
           (test1b (proto-impl:make-object basic-test1 :intval -150))
           (test2  (proto-impl:make-object basic-test2 :strval "testing"))
           (test2b (proto-impl:make-object basic-test2 :strval "1 2 3"))
           (test3  (proto-impl:make-object basic-test3 :recval test1))
           (test4  (proto-impl:make-object basic-test4 :recval test2))
           (test5  (proto-impl:make-object basic-test5
                                           :color :red :intvals '(2 3 5 7)
                                           :strvals '("two" "three" "five" "seven")))
           (test6  (proto-impl:make-object basic-test6
                                           :intvals '(2 3 5 7)
                                           :strvals '("two" "three" "five" "seven")
                                           :recvals (list test2 test2b)))
           (group1 (proto-impl:make-object subgroups
                                           :strval "g1"
                                           :intvals '(1 1 2 3)))
           (group2 (proto-impl:make-object subgroups
                                           :strval "g2"))
           (test7  (proto-impl:make-object basic-test7
                                          :strval "seven"
                                          :intvals '(2 27)
                                          :subgroups (list group1  group2))))
      (let ((tser1  (serialize-object-to-bytes test1 'basic-test1))
            (tser1b (serialize-object-to-bytes test1b 'basic-test1))
            (tser2  (serialize-object-to-bytes test2 'basic-test2))
  
negative.code:                       strval intvals)))))
  
  (deftest text-serialization (serialization-tests)
    (let* ((test1  (make-basic-test1 :intval 150))
           (test1b (make-basic-test1 :intval -150))
           (test2  (make-basic-test2 :strval "testing"))
           (test2b (make-basic-test2 :strval "1 2 3"))
           (test3  (make-basic-test3 :recval test1))
           (test4  (make-basic-test4 :recval test2))
           (test5  (make-basic-test5
                    :color :red :intvals '(2 3 5 7)
                    :strvals '("two" "three" "five" "seven")))
           (test6  (make-basic-test6
                    :intvals '(2 3 5 7)
                    :strvals '("two" "three" "five" "seven")
                    :recvals (list test2 test2b))))
      (let ((tser1  (serialize-object-to-bytes test1 'basic-test1))
            (tser1b (serialize-object-to-bytes test1b 'basic-test1))
            (tser2  (serialize-object-to-bytes test2 'basic-test2))
  