(in-package :usocket) (with-client-socket (socket stream "localhost" 61613) (format stream "CONNECT~%~%~C" #\Null) (format stream "SEND~%destination:/topic/SampleTopic~%~%Simples Assim~C" #\Null) (format stream "DISCONNECT~%~%~C" #\Null) )
(in-package :usocket) (with-client-socket (socket stream "localhost" 61613) (format stream "CONNECT~%~%~C" #\Null) (format stream "SEND~%destination:/topic/SampleTopic~%~%Simples Assim~C" #\Null) (format stream "DISCONNECT~%~%~C" #\Null) )