X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Flocal.lisp;h=2350e06a5d08494883c5f04825fa940bc5f36e12;hb=1b650be8b800cf96e2c268ae317fb26d0bf36827;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..2350e06 100644
--- a/contrib/sb-bsd-sockets/local.lisp
+++ b/contrib/sb-bsd-sockets/local.lisp
@@ -32,7 +32,7 @@ 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)
 			    sockint::offset-of-sockaddr-un-path))))