X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fname-service.lisp;h=8d1d01628a1895bcf0cf82034f7f9fc9d9038003;hb=568daf6b160280428701670b921f419aabd9eba0;hp=d55ee8dba1205c34135302f573d20ec7f4badf11;hpb=c2c405712ae18e70a96c4a8cf584dde329f3d5f7;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/name-service.lisp b/contrib/sb-bsd-sockets/name-service.lisp
index d55ee8d..8d1d016 100644
--- a/contrib/sb-bsd-sockets/name-service.lisp
+++ b/contrib/sb-bsd-sockets/name-service.lisp
@@ -41,8 +41,8 @@
                                (loop for i from 0 below length
                                      do (setf (elt addr i) (sb-alien:deref ad i)))
                                addr))
-                          #-win32 
-			  (#.sockint::af-local
+                          #-win32
+                          (#.sockint::af-local
                            (sb-alien:cast ad sb-alien:c-string))))))
     (make-instance 'host-ent
                    :name (sockint::hostent-name h)
@@ -113,7 +113,7 @@ GET-NAME-SERVICE-ERRNO")
 
 #-win32
 (define-name-service-condition sockint::NETDB-INTERNAL netdb-internal-error)
-#-win32 
+#-win32
 (define-name-service-condition sockint::NETDB-SUCCESS netdb-success-error)
 (define-name-service-condition sockint::HOST-NOT-FOUND host-not-found-error)
 (define-name-service-condition sockint::TRY-AGAIN try-again-error)
@@ -129,10 +129,10 @@ GET-NAME-SERVICE-ERRNO")
 (defun get-name-service-errno ()
   (setf *name-service-errno*
         (sb-alien:alien-funcall
-	 #-win32
+         #-win32
          (sb-alien:extern-alien "get_h_errno" (function integer))
-	 #+win32
-	 (sb-alien:extern-alien "WSAGetLastError" (function integer)))))
+         #+win32
+         (sb-alien:extern-alien "WSAGetLastError" (function integer)))))
 
 #-(and cmu solaris)
 (progn