anchor.diff:                           type index buffer)))
               (if result result
                   (undefined-field-type "While serializing ~S,"
  -                                  object type field)))))))
  +                                      object type field)))))))
   
   (defun emit-non-repeated-field (value type index buffer)
     "Serialize a non-repeated field. 
  
positive.code:                       (protobuf-enum-values msg) index buffer)
                       (let ((tag (make-tag $wire-type-varint index)))
                         (doseq (v (read-slot object slot reader) size)
                           (iincf size
                                  (serialize-enum v (protobuf-enum-values msg) tag buffer))))))
                  ((typep msg 'protobuf-type-alias)
                   (let* ((type (proto-proto-type msg))
                          (tag  (make-tag type index)))
                     (doseq (v (read-slot object slot reader) size)
                       (let ((v (funcall (proto-serializer msg) v)))
                         (iincf size (serialize-prim v type tag buffer))))))
                  (t (undefined-field-type "While serializing ~S,"
                                           object type field)))
            (let ((result (emit-non-repeated-field
  
negative.code:                 ((keywordp type)
                   (let ((tag (make-tag type index)))
                     (doseq (v (read-slot object slot reader))
                            (iincf size (serialize-prim v type tag buffer)))
                     size))
                  ((typep (setq msg (and type (or (find-message type)
                                                  (find-enum type)
  