anchor.diff:                                  (and (not (proto-lazy-p field))
                                        reader))
                        (list object))
  -                 field
  +                 (proto-class field)
  +                 (proto-name 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
  +                 (proto-class field)
  +                 (proto-name field)
                    :indent indent
                    :stream stream
                    :print-name print-name
  
positive.code:        (dolist (v values)
           (print-text-format v :indent (+ indent 2)
                                :stream stream
                                :name (proto-name field)
                                :print-name print-name
                                :pretty-print pretty-print)))
        ((typep desc 'enum-descriptor)
         (doseq (v values)
                (print-enum v desc field stream
                            (and pretty-print indent))))
        ((typep desc 'protobuf-type-alias)
         (let ((type (proto-proto-type desc)))
           (doseq (v values)
                  (let ((v (funcall (proto-serializer desc) v)))
                    (print-scalar v type (proto-name field) stream
                                  (and pretty-print indent))))))
        (t
         (undefined-type "While printing ~S to text format,"
                               values type)))))
  
  (defun print-non-repeated-field
      (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:
    VALUE: The value in the field to print.
    FIELD: The field-descriptor of the field.
    INDENT: If supplied, indent the text by INDENT spaces.
    STREAM: The stream to output to.
    PRINT-NAME: Whether or not to print the name of the field.
    PRETTY-PRINT: When true, print newlines and indentation."
    (let ((type (proto-class field))
          (desc))
      ;; If VALUE is NIL and the type is not boolean, there is nothing to do.
      (unless (or value (eq type :bool))
        (return-from print-non-repeated-field nil))
      (cond
        ((scalarp type)
         (print-scalar value type (proto-name field) stream
                       (and pretty-print indent)))
        ((typep (setq desc (or (find-message type)
                               (find-enum type)
  
negative.code:               'message-descriptor)
         (print-text-format value :indent (+ indent 2)
                                  :stream stream
                                  :name name
                                  :print-name print-name
                                  :pretty-print pretty-print))
        ((typep desc 'enum-descriptor)
  