I think I worked out how to do this...  something like:

(let ((animal (make-instance 'animal :type :cat))
      (cat (make-instance 'cat)))
  (setf (animal animal) cat)
  ;; now work with cat
  ;; now serialize animal
  )

Sorry for the noise.  And thanks for making cl-protobufs!

Thomas Munro