projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.39: will be tagged as sbcl_1_0_39
[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
8ca769b
..
1c9e9ae
100644
(file)
--- a/
contrib/sb-bsd-sockets/local.lisp
+++ b/
contrib/sb-bsd-sockets/local.lisp
@@
-5,6
+5,12
@@
(:documentation "Class representing local domain (AF_LOCAL) sockets,
also known as unix-domain sockets."))
(:documentation "Class representing local domain (AF_LOCAL) sockets,
also known as unix-domain sockets."))
+(defmethod socket-namestring ((socket local-socket))
+ (ignore-errors (socket-name socket)))
+
+(defmethod socket-peerstring ((socket local-socket))
+ (ignore-errors (socket-peername socket)))
+
(defmethod make-sockaddr-for ((socket local-socket)
&optional sockaddr &rest address &aux (filename (first address)))
(let ((sockaddr (or sockaddr (sockint::allocate-sockaddr-un))))
(defmethod make-sockaddr-for ((socket local-socket)
&optional sockaddr &rest address &aux (filename (first address)))
(let ((sockaddr (or sockaddr (sockint::allocate-sockaddr-un))))