X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Flocal.lisp;h=cf106f1ae7b27538dd2a2834a0d88064fa33a1b1;hb=fab1ba8d4e92ecb5d496577fc205675218911b1d;hp=2350e06a5d08494883c5f04825fa940bc5f36e12;hpb=e449254c6a6a768b42a878274a90db9bb7d2ba2b;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/local.lisp b/contrib/sb-bsd-sockets/local.lisp
index 2350e06..cf106f1 100644
--- a/contrib/sb-bsd-sockets/local.lisp
+++ b/contrib/sb-bsd-sockets/local.lisp
@@ -34,7 +34,7 @@ a network.
 (defmethod bits-of-sockaddr ((socket local-socket) 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)))