anchor.diff:    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."
  +  (unless values
  +    nil) ; If values is NIL, then there is nothing to do.
     (let ((type (proto-class field))
           (msg))
       (cond
  
positive.code:                  (when slot
                     (setf (proto-slot-value object slot) val))))))))))
  
  (defun parse-field (type &key (stream *standard-output*))
    "Parse data of type TYPE from STREAM. This function returns
  the object parsed. If the parsing fails, the function will
  return T as a second value."
  
negative.code:        (doseq (v values)
                (print-scalar v type (proto-name field) stream
                              (and pretty-print indent))))
        ((typep (setq msg (or (find-message type)
                              (find-enum type)
                              (find-type-alias type)))
                'message-descriptor)
         (let ((indent (+ indent 2)))
           (dolist (v values)
  
             (print-text-format v :indent indent
                                  :stream stream
                                  :name (proto-name field)
                                  :print-name print-name
                                  :pretty-print pretty-print))))
        ((typep msg 'enum-descriptor)
         (doseq (v values)
                (print-enum v msg field stream
  