Plaster

common-lisp
(defun receive-data () (let ((connection (usocket:socket-connect nil nil :local-host usocket:*wildcard-host* :local-port 23455 :protocol :datagram :element-type '(unsigned-byte 8)))) (unwind-protect (loop (if (usocket:wait-for-input connection) (return (usocket:socket-receive connection nil 4)))) (when connection (usocket:socket-close connection)))))