anchor.diff:    (when (or val (eq type :bool))
       (when indent
         (format stream "~&~V,0T" (+ indent 2)))
  -    (when field
  -      (format stream "~A: " (proto-name field)))
  +    (when name
  +      (format stream "~A: " name))
       (ecase type
         ((:int32 :uint32 :int64 :uint64 :sint32 :sint64
           :fixed32 :sfixed32 :fixed64 :sfixed64)
  
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:        (when value
           (let ((value (funcall (proto-serializer msg) value))
                 (type  (proto-proto-type msg)))
             (print-scalar value type (proto-name field) stream
                           (and pretty-print indent)))))
        ;; todo(benkuehnert): use specified map format
        ((typep msg 'map-descriptor)
  