Plaster
New
List
Login
common-lisp
default
anonymous
2019.01.20 18:37:52
(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)))))
Raw
Annotate
Repaste
Edit