anchor.diff:    (setf (d (optional-import-message m)) 120)
   
     ;; repeated fields
  -  (let ((field-info *repeated-field-info*))
  -    (loop for (field . values) in field-info do
  -      (let ((accessor (field-function "" field))
  -            (v0 (first values))
  -            (v1 (second values)))
  -        (vector-push-extend v0 (funcall accessor m))
  -        (vector-push-extend v1 (funcall accessor m)))))
  +  (set-repeated-fields m *repeated-field-info*)
     (let ((v0 (make-instance 'test-all-types-repeated-group))
           (v1 (make-instance 'test-all-types-repeated-group)))
       (setf (a v0) 217)
  
positive.code:   (let ((package (find-package 'protobuf-unittest)))
      (fdefinition `(setf ,(find-symbol (symbol-name field) package)))))
  
  (defun expect-all-fields-set (m)
    ;; optional and default fields
    (let ((field-info (append *optional-field-info* *default-field-info*)))
  
negative.code:   (is (has-d (optional-import-message m)))
    (is (= (d (optional-import-message m)) 120))
  
    (expect-repeated-fields-set m *repeated-field-info*)
    (let ((v (repeated-group m)))
      (is (= (length v) 2))
      (is (= (a (aref v 0)) 217))
  