anchor.diff:    (assert (= (pb:d (pb:optional-import-message m)) 120))
   
     ;; repeated fields
  -  (let ((field-info +repeated-field-info+))
  +  (let ((field-info *repeated-field-info*))
       (loop for (field . values) in field-info do
             (let ((accessor (field-function "" field))
                   (v0 (first values))
  
positive.code: 
  (defun set-all-fields (m)
    ;; optional and default fields
    (let ((field-info (append +optional-field-info+ +default-field-info+)))
      (loop for (field . value) in field-info do
            (let ((setter (field-setter field)))
              (funcall setter value m))))
    (setf (pb:a (pb:optionalgroup m)) 117)
    (setf (pb:bb (pb:optional-nested-message m)) 118)
  
negative.code: 
  (defun expect-all-fields-set (m)
    ;; optional and default fields
    (let ((field-info (append *optional-field-info* *default-field-info*)))
      (loop for (field . values) in field-info do
            (let ((has (field-function "HAS-" field))
                  (accessor (field-function "" field))
                  (value (second values)))
              (assert (funcall has m))
              (assert (field-equal (funcall accessor m) value)))))
  
  