X-Git-Url: http://dolda2000.com/gitweb/?p=lisp-utils.git;a=blobdiff_plain;f=net-ecl.lisp;fp=net-ecl.lisp;h=338895430805db5e917a9a1f7ad087a2af07dc2a;hp=3f8073710aa17c4703db972762f93cc73f539e9b;hb=145f3ceec97386f00e6bdf33a72a4817b1cb5d20;hpb=503ecdf0892775e51255891dc3298d0f98dbfed7

diff --git a/net-ecl.lisp b/net-ecl.lisp
index 3f80737..3388954 100644
--- a/net-ecl.lisp
+++ b/net-ecl.lisp
@@ -71,3 +71,8 @@
 
 (defmethod gray:stream-write-sequence ((socket stream-socket) seq &optional (start 0) (end (length seq)))
   (gray-stream-write-sequence socket seq start end))
+
+;;; Error cover-up
+
+(defmethod sb-bsd-sockets:socket-name ((sk sb-bsd-sockets:local-socket))
+  (simple-network-error "ECL does not support reading the name of Unix sockets."))