Plaster
New
List
Login
common-lisp
default
anonymous
2019.01.23 01:05:39
(defun test () (let ((connection (establish-tcp-connection *tcp-port*))) (unwind-protect (receive-resolution connection) (when connection (usocket:socket-close connection))))) (defun establish-tcp-connection (port) "Creates a listening TCP connection and returns the object for use in multiple functions" (usocket:socket-accept (usocket:socket-listen "192.168.200.4" port :element-type '(unsigned-byte 8)) :element-type '(unsigned-byte 8)))
Raw
Annotate
Repaste
Edit