0.8.12.55:

	Really return the host-ent's address in sb-bsd-sockets::make-host-ent

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

diff --git a/version.lisp-expr b/version.lisp-expr
index 5ffaf57..ae39412 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.12.54"
+"0.8.12.55"