clorb-devel Mailing List for Common Lisp ORB

Hi,

I am trying to use CLORB to push untyped events of type struct to the
EventService. I use code like the following, which results in a
marshalling exception raised by the server. Any ideas whether
marshalling of structs into anys works correctly?

,----
|   (let ((event-channel (resolve "MyEventChannel")))
|     (let ((in-adm (invoke event-channel "for_suppliers")))
|       (let ((out (invoke in-adm "obtain_push_consumer"))
|             (data (CORBA:Any :any-typecode CORBA:tc_struct
|                              :any-value (make-struct "IDL:Time/TimeVal:1.0"
|                                                      :seconds 4
|                                                      :microseconds 2
|                                                      :counter 666))))
|         (invoke out "connect_push_supplier" nil)
|         (invoke out "push" data)
|         (invoke out "disconnect_push_supplier")))))
`----

Thanks,

-- 
Eric Marsden                          <URL:" rel="nofollow">http://www.laas.fr/~emarsden/>