5 lines
175 B
Text
5 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"))
|