anchor.diff:                              (cond ((keywordp type)
                                      (doseq (v (read-slot object slot reader))
                                        (print-prim v type field stream
  -                                                 (or suppress-pretty-print indent))))
  +                                                 (and (not suppress-pretty-print) indent))))
                                     ((typep (setq msg (and type (or (find-message type)
                                                                     (find-enum type)
                                                                     (find-type-alias type))))
  
positive.code:                                    (let ((v (read-slot object slot reader)))
                                       (when (and v (not (eql v (proto-default field))))
                                         (print-enum v msg field stream
                                                     (or suppress-pretty-print indent)))))
                                    ((typep msg 'protobuf-type-alias)
                                     (let ((v (read-slot object slot reader)))
                                       (when v
                                         (let ((v    (funcall (proto-serializer msg) v))
                                               (type (proto-proto-type msg)))
                                           (print-prim v type field stream
                                                       (or suppress-pretty-print indent))))))
                                    (t
                                     (undefined-field-type "While printing ~S to text format,"
                                                           object type field)))))))))
  
negative.code:                             (cond ((keywordp type)
                                     (let ((v (read-slot object slot reader)))
                                       (print-prim v type field stream
                                                   (and (not suppress-pretty-print) indent))))
                                    ((typep (setq msg (and type (or (find-message type)
                                                                    (find-enum type)
                                                                    (find-type-alias type))))
  