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