(define-alias Session javax.jms.Session) (define-alias ActiveMQConnectionFactory org.apache.activemq.ActiveMQConnectionFactory) (define connFactory (ActiveMQConnectionFactory:new)) (define conn (connFactory:createConnection)) (define sess (conn:createSession #f Session:AUTO_ACKNOWLEDGE)) (define dest (sess:createTopic "SampleTopic")) (define prod (sess:createProducer dest)) (define msg (sess:createTextMessage "Simples Assim")) (prod:send msg) (conn:close)