(import s2j) (define-java-class <javax.jms.session>) (define-java-class <org.apache.activemq.active-m-q-connection-factory>) (define connFactory (java-new <org.apache.activemq.active-m-q-connection-factory>)) (define createConnection (generic-java-method '|createConnection|)) (define conn (createConnection connFactory)) (define createSession (generic-java-method '|createSession|)) (define autoAcknowledge (generic-java-field-accessor '|AUTO_ACKNOWLEDGE|)) (define sess (createSession conn (->jboolean #f) (autoAcknowledge (java-null <javax.jms.session>)))) (define createQueue (generic-java-method '|createQueue|)) (define dest (createQueue sess (->jstring "SampleQueue"))) (define createConsumer (generic-java-method '|createConsumer|)) (define cons (createConsumer sess dest)) (define start (generic-java-method '|start|)) (start conn) (define receive (generic-java-method '|receive|)) (define msg (receive cons)) (display msg) (define close (generic-java-method '|close|)) (close conn)