X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Flocal.lisp;h=53a7f85b5dbee0efbea0096882c065d8eef2f8e2;hb=27763fafd1b170518ac2e85b9344fdddddcfd7c5;hp=d77fee74364ce84bfd5d2e72b555cc86a3b3e3a7;hpb=8a3c76ab9725a199aa06a0abc018e096271a0f75;p=sbcl.git diff --git a/contrib/sb-bsd-sockets/local.lisp b/contrib/sb-bsd-sockets/local.lisp index d77fee7..53a7f85 100644 --- a/contrib/sb-bsd-sockets/local.lisp +++ b/contrib/sb-bsd-sockets/local.lisp @@ -6,7 +6,7 @@ also known as unix-domain sockets.")) (defmethod make-sockaddr-for ((socket local-socket) - &optional sockaddr &rest address &aux (filename (first address))) + &optional sockaddr &rest address &aux (filename (first address))) (let ((sockaddr (or sockaddr (sockint::allocate-sockaddr-un)))) (setf (sockint::sockaddr-un-family sockaddr) sockint::af-local) (when filename