From 5fd4b2323c17166d41691de68ac6d16f1bad619d Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Tue, 1 Jan 2008 04:21:11 +0100 Subject: [PATCH] Fix typo. Signed-off-by: Stelian Ionescu --- sockets/dns/query.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sockets/dns/query.lisp b/sockets/dns/query.lisp index 418d70a..eaca2ca 100644 --- a/sockets/dns/query.lisp +++ b/sockets/dns/query.lisp @@ -331,6 +331,6 @@ (assert nameservers (nameservers) "Must supply a nameserver") (let ((pname (preprocess-dns-name name type))) (dolist (ns (mapcar #'ensure-address nameservers)) - (when-let ((response (do-one-dns-query name type search decode + (when-let ((response (do-one-dns-query pname type search decode ns repeat timeout))) (return-from dns-query response))))) -- 2.11.4.GIT