Fixed up Unix sockets a bit.

[lisp-utils.git] / net-ecl.lisp

diff --git a/net-ecl.lisp b/net-ecl.lisp
index 3f80737..3388954 100644 (file)
--- 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."))