anchor.diff:                               object type field)))))
   
   (defun print-non-repeated-field
  -    (value field (indent 0) &key (stream *standard-output*) (print-name t) (pretty-print t))
  +    (value 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:
  
positive.code:                                 (and (not (proto-lazy-p field))
                                       reader))
                       (list object))
                   field 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
                   :stream stream
                   :print-name print-name
                   :pretty-print pretty-print)))))
  
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:
  