0.8.3.11

[sbcl.git] / contrib / sb-bsd-sockets / name-service.lisp

diff --git a/contrib/sb-bsd-sockets/name-service.lisp b/contrib/sb-bsd-sockets/name-service.lisp
index ab5b81e..2c02fca 100644 (file)
--- 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