anchor.diff:                                  (and (not (proto-lazy-p field))
                                        reader))
                        (list object))
  -                 field indent
  +                 field
  +                 :indent indent
                    :stream stream
                    :print-name print-name
                    :pretty-print pretty-print)
                   (print-non-repeated-field
                    (if slot (read-slot object slot reader) object)
  -                 field indent
  +                 field
  +                 :indent indent
                    :stream stream
                    :print-name print-name
                    :pretty-print pretty-print)))))
  
positive.code:                              object type field)))))
  
  (defun print-non-repeated-field
      (value field (indent 0) &key (stream *standard-output*) (print-name t) (pretty-print t))
    "Print the text format of a single field which is not repeated.
  
  Parameters:
  
negative.code:       nil)))
  
  (defun print-repeated-field
      (values field &key (indent 0) (stream *standard-output*) (print-name t) (pretty-print t))
    "Print the text format of a single field which is not repeated.
  
  Parameters:
  