X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Flocal.lisp;h=cf106f1ae7b27538dd2a2834a0d88064fa33a1b1;hb=1d46d379bb7a6424524b978f213ef69be5f1ad69;hp=363f0514772be8faaf34df5d60855985245f237a;hpb=3b91bf9e9daf110b35dd8d5b6ca5a88e0fb0f13b;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/local.lisp b/contrib/sb-bsd-sockets/local.lisp
index 363f051..cf106f1 100644
--- a/contrib/sb-bsd-sockets/local.lisp
+++ b/contrib/sb-bsd-sockets/local.lisp
@@ -32,9 +32,9 @@ a network.
   sockint::size-of-sockaddr-un)
 
 (defmethod bits-of-sockaddr ((socket local-socket) sockaddr)
-  "Returns filename of SOCKADDR"
+  "Return the file name of the local socket address SOCKADDR."
   (let ((name (sb-c-call::%naturalize-c-string
-	       (sb-sys:sap+ (sockint::array-data-address sockaddr)
+	       (sb-sys:sap+ (sb-grovel::array-data-address sockaddr)
 			    sockint::offset-of-sockaddr-un-path))))
     (if (zerop (length name)) nil name)))