Plaster
New
List
Login
common-lisp
default
anonymous
2019.01.19 21:18:31
(defun receive-data () (let ((connection (socket-connect nil nil :local-host *wildcard-host* :local-port 23456 :protocol :datagram :element-type '(unsigned-byte 8)))) (unwind-protect (loop (if (wait-for-input connection) (print (socket-receive connection nil 5)))) (when connection (socket-close connection)))))
Raw
Annotate
Repaste
Edit