anchor.diff:                        (second (subgroups (deserialize-object 'basic-test7 tser7)))
                         strval intvals)))))
   
  -#+off
   (deftest text-serialization (serialization-tests)
     (let* ((test1  (proto-impl:make-object basic-test1 :intval 150))
            (test1b (proto-impl:make-object basic-test1 :intval -150))
  
positive.code:            (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))
  
negative.code:     "George W. Bush" "Barack Obama")
    "A list of presidents from George Washington until Barack Obama")
  
  (deftest optimize-performance-test (serialization-tests)
    (let ((population (make-population))
          (count 0))
  