(in-package :socket) (let ((stream (make-socket :remote-host "localhost" :remote-port 61613))) (format stream "CONNECT~%~%~C" #\null) (format stream "SEND~%destination:SampleQueue~%~%Simples Assim~C" #\null) (format stream "DISCONNECT~%~%~C" #\null) (close stream) )