4 lines
175 B
Text
4 lines
175 B
Text
(let* ((server (first (getaddrinfo "localhost" 256)))
|
|
(sock (open-socket server.family sock-stream)))
|
|
(sock-connect sock server)
|
|
(put-string "hello socket world"))
|