anchor.diff:                          7 116 101 115 116 105 110 103 26 7 18
                           5 49 32 50 32 51))
   
  +(defvar *tser7-bytes* #(10 5 115 101 118 101 110 16 2 16 27
  +                        27 10 2 103 49 16 1 16 1 16 2 16 3 28
  +                        27 10 2 103 50 28))
  +
   (deftest basic-serialization (serialization-tests)
     (let* ((test1  (proto-impl:make-object basic-test1 :intval 150))
            (test1b (proto-impl:make-object basic-test1 :intval -150))
  
positive.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))
  
negative.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*))
        (assert-true (equalp tser7 *tser7-bytes*))
        (macrolet ((slots-equalp (obj1 obj2 &rest slots)
                     (proto-impl::with-gensyms (vobj1 vobj2)
                       (proto-impl::with-collectors ((forms collect-form))
  