接続してきたアドレスを表示する

(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)))