(trivial-sockets:with-server (server (:port 8989)) (let ((socket (sb-bsd-sockets:socket-accept server))) (print (sb-bsd-sockets:socket-peername socket)) (sb-bsd-sockets:socket-close socket)))
0 件のコメント:
コメントを投稿