X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fname-service.lisp;h=2c02fcacbf0ed516858c738b871cc3ce62903173;hb=fb8533122551bbb7aea669f40bc91c1211809b58;hp=ab5b81eb1b8ed2caf75b3f96584c95f385cf006d;hpb=891ba76c8476bb95951c4049e7c20d5895cb2233;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/name-service.lisp b/contrib/sb-bsd-sockets/name-service.lisp
index ab5b81e..2c02fca 100644
--- a/contrib/sb-bsd-sockets/name-service.lisp
+++ b/contrib/sb-bsd-sockets/name-service.lisp
@@ -43,7 +43,8 @@ eventually, so that we can do DNS lookups in parallel with other things
 			     (assert (= length 4))
 			     (let ((addr (make-array 4 :element-type '(unsigned-byte 8))))
 			       (loop for i from 0 below length
-				     do (setf (elt addr i) (sb-alien:deref ad i)))))
+				     do (setf (elt addr i) (sb-alien:deref ad i)))
+			       addr))
 			  (#.sockint::af-local
 			   (sb-alien:cast ad sb-alien:c-string))))))
     (make-instance 'host-ent