From dbe3a874afdc7f5ca07aa7ab2b5de078cdf4176e Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 6 Jan 2008 04:53:16 +0100 Subject: [PATCH] Fix inverse host lookups. Signed-off-by: Stelian Ionescu --- sockets/dns/lookup.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sockets/dns/lookup.lisp b/sockets/dns/lookup.lisp index cda017a..ba1898e 100644 --- a/sockets/dns/lookup.lisp +++ b/sockets/dns/lookup.lisp @@ -56,7 +56,7 @@ (cond ((and (eq ipv6 :ipv6) (ipv4-address-p address)) (setf address (map-ipv4-address-to-ipv6 address))) - ((and (eq ipv6 nil) + ((and (member ipv6 '(nil t)) (ipv6-ipv4-mapped-p address)) (setf address (map-ipv6-address-to-ipv4 address)))) (nth-value-or 0 -- 2.11.4.GIT