ccl and sockets, annotation 5

(with-open-socket (client :type :datagram
              :broadcast t
              :reuse-address t
              :local-port 9999
              )
          (send-to client *sony-find-vector* (length *sony-find-vector*)
               :remote-host "255.255.255.255"
               :remote-port 2380 )
          (loop
           (format *standard-output* "~%waiting for bytes...~%")
           (multiple-value-bind (buffer bytes-read sender-ip port-number) (receive-from client 1500)
             (handle-received-bytes buffer bytes-read (ccl:ipaddr-to-dotted sender-ip) port-number))))