0.8.7.49:

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

diff --git a/contrib/sb-bsd-sockets/local.lisp b/contrib/sb-bsd-sockets/local.lisp
index 2350e06..cf106f1 100644 (file)
--- 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)))