anchor.diff:          (msg))
       (cond
         ((scalarp type)
  -       (print-scalar value type field stream
  +       (print-scalar value type (proto-name field) stream
                        (and pretty-print indent)))
         ((typep (setq msg (and type (or (find-message type)
                                         (find-enum type)
  
positive.code:     (cond
        ((scalarp type)
         (doseq (v values)
                (print-scalar v type field stream
                              (and pretty-print indent))))
        ((typep (setq msg (and type (or (find-message type)
                                        (find-enum type)
  
negative.code:        (undefined-field-type "While printing ~S to text format,"
                               object type field)))))
  
  (defun print-scalar (val type name stream indent)
    "Print scalar value to stream
  
  Parameters:
    VAL: The data for the value to print.
    TYPE: The type of val.
    NAME: The name to print before the value. If nil, then no
          name will be printed.
    STREAM: The stream to print to.
    INDENT: Either a number or nil.
            - If indent is a number, indent this print
  