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:                                    (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:       (do-test (proto-impl:make-object outer :simple simple-1))
        (do-test (proto-impl:make-object outer :simple simple-2)))))
  
  (deftest empty-message-serialization (serialization-tests)
    (let ((speed0 (proto-impl:make-object speed-empty))
          (speed1 (proto-impl:make-object speed-optional))
  