From 44cee39ba843ea479ae77f37cca80bb016828c50 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 24 Mar 2008 06:06:08 +0100 Subject: [PATCH] Small improvement in DO-ONE-DNS-QUERY. Signed-off-by: Stelian Ionescu --- net.sockets/dns/query.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/net.sockets/dns/query.lisp b/net.sockets/dns/query.lisp index 5b75145..68bf5f0 100644 --- a/net.sockets/dns/query.lisp +++ b/net.sockets/dns/query.lisp @@ -293,9 +293,9 @@ ((start (protocol) ;; if the query size fits into a datagram(512 bytes max) do a ;; UDP query, otherwise use TCP - (if (eq :udp protocol) - (query/udp) - (query/tcp))) + (ecase protocol + (:udp (query/udp)) + (:tcp (query/tcp)))) (query/udp () ;; do a UDP query; in case of a socket error, try again (handler-case -- 2.11.4.GIT