X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fname-service.lisp;h=d1483735212842fdface54ccf1484b199749ec0e;hb=7f4bf063d5f4716b87d34cc706f05b27ad3906b1;hp=056bda38026d7d26bae0f35c237c736e7ceb4819;hpb=dcf7b5cbc859426d005b534f3fa273be5da0b64c;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/name-service.lisp b/contrib/sb-bsd-sockets/name-service.lisp
index 056bda3..d148373 100644
--- a/contrib/sb-bsd-sockets/name-service.lisp
+++ b/contrib/sb-bsd-sockets/name-service.lisp
@@ -61,7 +61,7 @@
 
 ;;; Resolving
 
-#+(and sb-thread (not sb-bsd-sockets-addrinfo))
+#-sb-bsd-sockets-addrinfo
 (sb-ext:defglobal **gethostby-lock** (sb-thread:make-mutex :name "gethostby lock"))
 
 (defun get-host-by-name (host-name)
@@ -164,8 +164,7 @@ GET-NAME-SERVICE-ERRNO")
   (let ((*name-service-errno* (get-name-service-errno errno)))
     ;; Comment next to NETDB_INTERNAL in netdb.h says "See errno.".
     ;; This special case treatment hasn't actually been tested yet.
-    #-win32
-    (if (= *name-service-errno* sockint::NETDB-INTERNAL)
+    (if (and #-win32 (= *name-service-errno* sockint::NETDB-INTERNAL))
         (socket-error where)
         (let ((condition
                (condition-for-name-service-errno *name-service-errno*)))