Common Lisp からUDP通信

REPLからIP Messengerにメッセージを送信してみる。

CL-USER> (ql:quickload "usocket-udp")
To load "usocket-udp":
  Load 1 ASDF system:
    usocket-udp
; Loading "usocket-udp"
.
("usocket-udp")

CL-USER> (usocket:socket-send
              (usocket:socket-connect "localhost" 2425 :protocol :datagram)
              "1:100:shirouzu:jupiter:32:Hello"
              (length "1:100:shirouzu:jupiter:32:Hello"))

これで送信はOKだった。
ただ、UDPを受信することはできないっぽい？（usocket:server-listenにdatagramを受信する手段がないっぽい）

参考>> http://smart-pda.net/isourou/ipmsg/doc/ipmsg_protocol.html