From 86db40320e767af50c84b9d82e4ae0481c8086c3 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 14 Oct 2013 17:11:09 +0200 Subject: [PATCH] Modify the ping example to wait for the reply --- extras/ping.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/extras/ping.lisp b/extras/ping.lisp index c4dd51f..9040252 100644 --- a/extras/ping.lisp +++ b/extras/ping.lisp @@ -59,4 +59,6 @@ (write-ip-header ip-header frame-size (dotted-to-integer target)) (setf (mem-ref payload :uint32) (htonl #x1A2B3C4D)) (write-icmp-header icmp-header icmp-packet-size id seqno) - (send-to socket frame :end frame-size :remote-host target)))))) + (send-to socket frame :end frame-size :remote-host target) + (iolib/multiplex:wait-until-fd-ready (socket-os-fd socket) :input) + (receive-from socket :size (* 64 1024))))))) -- 2.11.4.GIT