<div dir="ltr">On 21 September 2013 01:10, Thomas Munro <span dir="ltr"><<a href="mailto:munro@ip9.org" target="_blank">munro@ip9.org</a>></span> wrote:<br><div class="gmail_extra"><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">animal = Animal()<br>animal.type = Animal.Cat<br>cat = animal.Extensions[Cat.animal]<br># now work with cat...<br># now serialize animal ...<br></div></blockquote><div> <br>I think I worked out how to do this...  something like:<br>
<br>(let ((animal (make-instance 'animal :type :cat))<br>      (cat (make-instance 'cat)))<br>  (setf (animal animal) cat)<br>  ;; now work with cat<br>  ;; now serialize animal<br>  )<br><br>Sorry for the noise.  And thanks for making cl-protobufs!<br>
<br>Thomas Munro</div></div></div></div>