anchor.diff:      "George W. Bush" "Barack Obama")
     "A list of presidents from George Washington until Barack Obama")
   
  +#+off
   (deftest optimize-performance-test (serialization-tests)
     (let ((population (make-population))
           (count 0))
  
positive.code:       (assert-true (equalp tser4 #(#x1A #x09 #x12 #x07 #x74 #x65 #x73 #x74 #x69 #x6E #x67)))
        (assert-true (equalp tser5 *tser5-bytes*))
        (assert-true (equalp tser6 *tser6-bytes*))
        (macrolet ((slots-equalp (obj1 obj2 &rest slots)
                     (proto-impl::with-gensyms (vobj1 vobj2)
                       (proto-impl::with-collectors ((forms collect-form))
  
negative.code:                       strval)
          (slots-equalp (second (recvals test6))
                        (second (recvals (deserialize-object 'basic-test6 tser6)))
                        strval)
          (slots-equalp test7 (deserialize-object 'basic-test7 tser7)
                        strval intvals)
          (slots-equalp (first (subgroups test7))
                        (first (subgroups (deserialize-object 'basic-test7 tser7)))
                        strval intvals)
          (slots-equalp (second (subgroups test7))
                        (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))
  